From c0599bcbb92af9cbaea52af3560ae08009d1b09d Mon Sep 17 00:00:00 2001 From: Vladimir Azarov Date: Fri, 30 May 2025 11:42:15 +0200 Subject: New printf combinator interface --- tokenizer.fun | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tokenizer.fun') diff --git a/tokenizer.fun b/tokenizer.fun index d6695d0..2adfd5c 100644 --- a/tokenizer.fun +++ b/tokenizer.fun @@ -265,11 +265,11 @@ struct symtab end - fun printToken (out, symtab, tk) = + fun ptk symtab tk out = let val ? = fn z => let - fun f (out, id) = Printf out `(ST.getStr symtab id) % + fun f id out = Printf out `(ST.getStr symtab id) % in bind A1 f end z @@ -296,7 +296,7 @@ struct | NONE => raise TokenWithoutRepr end - val Ptk = fn z => bind A2 printToken z + val Ptk = fn z => bind A2 ptk z fun isNondigit c = Char.isAlpha c orelse c = #"_" -- cgit v1.2.3