From b3f8ca28af653dcb5fdc10e8c70439d86c043635 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Fri, 1 Aug 2025 19:26:54 +0200
Subject: Remove fp support

---
 tokenizer.fun | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'tokenizer.fun')

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" %
-- 
cgit v1.2.3