diff options
| author | Vladimir Azarov <avm@intermediate-node.net> | 2025-05-18 15:23:49 +0200 |
|---|---|---|
| committer | Vladimir Azarov <avm@intermediate-node.net> | 2025-05-18 15:23:49 +0200 |
| commit | be407d29db4f2ac1018ab6841c7111f95b977948 (patch) | |
| tree | 80894cf46a3e694218f28773df7f057a922aca59 /tokenizer.fun | |
| parent | d289f01594024a8fe64aeed56721260fab6b4e50 (diff) | |
#undef
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 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 |