Commit b4ad81c7 authored by sof's avatar sof

[project @ 1997-08-25 22:21:46 by sof]

2.06 uses PackBase
parent c8d5e66d
......@@ -332,8 +332,11 @@ lexemeToString (StringBuffer fo _ start_pos# current#) =
if start_pos# ==# current# then
""
else
#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 205
byteArrayToString (copySubStr (A# fo) (I# start_pos#) (I# (current# -# start_pos#)))
#else
unpackCStringBA (copySubStr (A# fo) (I# start_pos#) (I# (current# -# start_pos#)))
#endif
lexemeToByteArray :: StringBuffer -> _ByteArray Int
lexemeToByteArray (StringBuffer fo _ start_pos# current#) =
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment