diff --git a/fcore/buffer.sml b/fcore/buffer.sml index 3e5469d..96f3bd0 100644 --- a/fcore/buffer.sml +++ b/fcore/buffer.sml @@ -205,6 +205,6 @@ buildTextString ( startIdx, rStrHd, [], 5, 5, 5 * else we can do. *) [] in - Vector.concat acc + (Vector.concat acc, lineGap) end end diff --git a/shell/shell.sml b/shell/shell.sml index 6765d45..2bc1e4e 100644 --- a/shell/shell.sml +++ b/shell/shell.sml @@ -23,7 +23,7 @@ struct val lineGap = ioToLineGap (io, LineGap.empty) val _ = TextIO.closeIn io - val textVec = Buffer.startBuildTextLineGap (0, lineGap, 1920, 1080) + val (textVec, _) = Buffer.startBuildTextLineGap (0, lineGap, 1920, 1080) val shellState = GlDraw.create window val shellState = GlDraw.uploadText (shellState, textVec) diff --git a/shf b/shf index cdb915b..a2f3311 100755 Binary files a/shf and b/shf differ