diff options
| author | Vladimir Azarov <avm@intermediate-node.net> | 2025-05-30 11:42:15 +0200 |
|---|---|---|
| committer | Vladimir Azarov <avm@intermediate-node.net> | 2025-05-30 11:42:15 +0200 |
| commit | c0599bcbb92af9cbaea52af3560ae08009d1b09d (patch) | |
| tree | 482fec902413c950bec8c252fc7e52a2c34cf910 /tokenizer.fun | |
| parent | 8a8a17e19bc4d474436d518f10c4d2dc5314fc0d (diff) | |
New printf combinator interface
Diffstat (limited to 'tokenizer.fun')
| -rw-r--r-- | tokenizer.fun | 6 |
1 files changed, 3 insertions, 3 deletions
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 = #"_" |