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

fix typo in line_gap.sml which caused a compilation error

Browse Source
This commit is contained in:
Humza Shahid
2025-09-19 04:40:34 +01:00
parent 7ea31ace35
commit 8c56f9cc95
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/line_gap.sml
View File

@@ -3230,7 +3230,7 @@ struct
case (rightStrings, rightLines) of case (rightStrings, rightLines) of
(shd :: stl, lhd :: ltl) => (shd :: stl, lhd :: ltl) =>
let let
val nextLine = curLine + Vector.length hd val nextLine = curLine + Vector.length lhd
in in
if findLine <= nextLine then if findLine <= nextLine then
let val relativeLine = findLine - curLine - 1 let val relativeLine = findLine - curLine - 1