From be407d29db4f2ac1018ab6841c7111f95b977948 Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Sun, 18 May 2025 15:23:49 +0200
Subject:  #undef

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

(limited to 'tokenizer.fun')

diff --git a/tokenizer.fun b/tokenizer.fun
index 999aabf..806209e 100644
--- a/tokenizer.fun
+++ b/tokenizer.fun
@@ -311,7 +311,7 @@ struct
       end
       | NONE => raise TokenWithoutRepr
 
-  val Ptoken = fn z => bind A1 printToken z
+  val Ptk = fn z => bind A1 printToken z
 
   fun isIdStart c = Char.isAlpha c orelse c = #"_"
   fun isIdBody c = Char.isAlphaNum c orelse c = #"_"
@@ -432,7 +432,7 @@ struct
         let
           val (tk, row) = sub (buf, rowNum)
         in
-          printf `"row " I rowNum `" - " Ptoken tk `": \t" %;
+          printf `"row " I rowNum `" - " Ptk tk `": \t" %;
           printRow 0 row;
           print' (rowNum + 1) buf
         end
@@ -1046,7 +1046,7 @@ struct
         printf `"\nline " I line' `": \t" %
       else
         ();
-      printf I col' `":" Ptoken tk `" ";
+      printf I col' `":" Ptk tk `" ";
       if tk = EOS then
         ()
       else
-- 
cgit v1.2.3