From 9ccb3fce8e390f09fa5b812a77f7a65c10c5e4b1 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Wed, 4 Jun 2025 20:45:08 +0200
Subject: Registration of declarations

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

(limited to 'tokenizer.fun')

diff --git a/tokenizer.fun b/tokenizer.fun
index b0df510..07bd08d 100644
--- a/tokenizer.fun
+++ b/tokenizer.fun
@@ -12,7 +12,7 @@ struct
     MacroEnd of int |
 
     Id of int |
-    CharConst of int * int |
+    CharConst of int * Word64.word |
     Num of int |
     Strlit of int |
 
@@ -585,7 +585,7 @@ struct
     val v =
       case chr of
         Reg #"\000" => error (S.getPosDisc stream) "expected character"
-      | Reg c | EscSeqed c => ord c
+      | Reg c | EscSeqed c => Word64.fromInt $ ord c
       | NoChar => raise Unreachable
 
     val (c, stream2) = getMaybeBackslashed stream1
-- 
cgit v1.2.3