humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Humza Shahid
2024-10-05 15:07:23 +01:00
parent 135ec2e3a6
commit 3f2f135a36
3 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fcore/buffer.sml
View File

@@ -112,7 +112,7 @@ struct
* call function to build next string *) * call function to build next string *)
continueBuildTextLineGap continueBuildTextLineGap
( tl, acc, posX, posY, startX ( tl, acc, posX, posY, startX
, windowWidth, windowHeight, fWindowWidth, fWindowWidth , windowWidth, windowHeight, fWindowWidth, fWindowHeight
, r, g, b , r, g, b
) )

2
shell/shell.sml
View File

@@ -5,7 +5,7 @@ struct
fun ioToLineGap (io, acc) = fun ioToLineGap (io, acc) =
case TextIO.inputLine io of case TextIO.inputLine io of
SOME str => ioToLineGap (io, LineGap.append (str, acc)) SOME str => ioToLineGap (io, LineGap.append (str, acc))
| NONE => acc | NONE => LineGap.goToStart acc
fun main () = fun main () =
let let

BIN
shf
View File

Binary file not shown.