move LineGap to start after loading file in shell.sml, and fix wrong parameter passed in mutually recursive function, in buffer.sml
This commit is contained in:
@@ -112,7 +112,7 @@ struct
|
||||
* call function to build next string *)
|
||||
continueBuildTextLineGap
|
||||
( tl, acc, posX, posY, startX
|
||||
, windowWidth, windowHeight, fWindowWidth, fWindowWidth
|
||||
, windowWidth, windowHeight, fWindowWidth, fWindowHeight
|
||||
, r, g, b
|
||||
)
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user