diff --git a/shell/shell.sml b/shell/shell.sml index cd5774b..4e97a6f 100644 --- a/shell/shell.sml +++ b/shell/shell.sml @@ -2,9 +2,9 @@ structure Shell = struct open CML - fun ioToString (io, acc) = + fun ioToLineGap (io, acc) = case TextIO.inputLine io of - SOME str => ioToString (io, acc ^ str) + SOME str => ioToLineGap (io, LineGap.append (str, acc)) | NONE => acc fun main () = @@ -20,8 +20,7 @@ struct (* upload text vector *) val io = TextIO.openIn "fcore/buffer.sml" - val str = ioToString (io, "") - val lineGap = LineGap.fromString str + val lineGap = ioToLineGap (io, LineGap.empty) val _ = TextIO.closeIn io val textVec = Buffer.startBuildTextLineGap (0, lineGap, 1920, 1080) diff --git a/shf b/shf index a175db0..669d9d7 100755 Binary files a/shf and b/shf differ