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

fix parse error with stateNum numbering: should only increment stateNum in computeAtom function, and never anywhere else

Browse Source
This commit is contained in:
Humza Shahid
2025-10-01 14:19:27 +01:00
parent b3f56dfaff
commit b9c20c43aa
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fcore/search-list/nfa.sml
View File

@@ -113,7 +113,7 @@ struct
else else
case computeAtom (pos, str, stateNum) of case computeAtom (pos, str, stateNum) of
SOME (nextPos, curAtom, stateNum) => SOME (nextPos, curAtom, stateNum) =>
(case climb (nextPos, str, curAtom, concatLevel, stateNum + 1) of (case climb (nextPos, str, curAtom, concatLevel, stateNum) of
SOME (pos, rhs, stateNum) => SOME (pos, rhs, stateNum) =>
let val result = CONCAT (lhs, rhs) let val result = CONCAT (lhs, rhs)
in SOME (pos, result, stateNum) in SOME (pos, result, stateNum)