diff options
Diffstat (limited to 'tokenizer.fun')
| -rw-r--r-- | tokenizer.fun | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tokenizer.fun b/tokenizer.fun index 14f4289..cce6bea 100644 --- a/tokenizer.fun +++ b/tokenizer.fun @@ -426,7 +426,7 @@ struct printf `"\n" % end - val fsmTable = lazy fsmTableCreate + val fsmTable = fsmTableCreate () fun fsmEat stream = let @@ -438,10 +438,10 @@ struct val (c, stream) = S.getchar stream in if c = #"\000" then - (#1 $ sub (#2 $ fsmTable (), curState), stream) + (#1 $ sub (#2 $ fsmTable, curState), stream) else let - val (tk, row) = sub (#2 $ fsmTable (), curState) + val (tk, row) = sub (#2 $ fsmTable, curState) val nextState = sub (row, ord c) in if nextState = ~1 then @@ -841,7 +841,7 @@ struct print line' stream end in - printTable symtab $ fsmTable (); + printTable symtab $ fsmTable; printf `"Tokenizing file: " `fname; print 0 stream; printf `"\n" % |