diff options
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 |