move LineGap to start after loading file in shell.sml, and fix wrong parameter passed in mutually recursive function, in buffer.sml

2024-10-05 15:07:23 +01:00
parent 135ec2e3a6
commit 3f2f135a36
3 changed files with 2 additions and 2 deletions
--- a/shell/shell.sml
+++ b/shell/shell.sml
@@ -5,7 +5,7 @@ struct
  fun ioToLineGap (io, acc) =
    case TextIO.inputLine io of
      SOME str => ioToLineGap (io, LineGap.append (str, acc))
-    | NONE => acc
+    | NONE => LineGap.goToStart acc

  fun main () =
    let