From 3a32398248e5593b1b536c837478cab276f7aebf Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Mon, 26 May 2025 21:06:51 +0200
Subject: Simpler tokenizer

---
 parser.fun | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'parser.fun')

diff --git a/parser.fun b/parser.fun
index b571a40..15134a8 100644
--- a/parser.fun
+++ b/parser.fun
@@ -92,7 +92,7 @@ functor Parser(P: PPC): PARSER = struct
   datatype expr =
     Enum |
     Eid of int |
-    Estrlit of string |
+    Estrlit of int |
     EmemberByV of int * exprAug |
     EmemberByP of int * exprAug |
     EfuncCall of exprAug * exprAug list |
@@ -254,7 +254,7 @@ functor Parser(P: PPC): PARSER = struct
       case e of
         Eid id => Printf out P.?id P %
       | Enum => Printf out `"num" P %
-      | Estrlit s => Printf out `"\"" `s `"\"" P %
+      | Estrlit s => Printf out P.?s P %
       | EmemberByV pair => member pair "."
       | EmemberByP pair => member pair "->"
       | EfuncCall (func, args) => (
@@ -399,7 +399,7 @@ functor Parser(P: PPC): PARSER = struct
   in
     case tk of
       Tk (T.Id id) => wrap $ Eid id
-    | Tk (T.StringConst s) => wrap $ Estrlit s
+    | Tk (T.Strlit id) => wrap $ Estrlit id
     | Tk (T.CharConst _) => raise Unimplemented
     | Tk (T.Num _) => wrap Enum
     | TkParens list =>
-- 
cgit v1.2.3