diff options
Diffstat (limited to 'src/interp/lexing.boot')
| -rw-r--r-- | src/interp/lexing.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/lexing.boot b/src/interp/lexing.boot index 325aa513..8b0e1b7e 100644 --- a/src/interp/lexing.boot +++ b/src/interp/lexing.boot @@ -188,7 +188,7 @@ tokenInstall(sym,typ,tok,nonblank == true) == tokenNonblank?(tok) := nonblank tok -getSpadToken tok == +getToken tok == not skipBlankChars() => nil tt := tokenLookaheadType currentChar() tt is 'EOF => tokenInstall(nil,'_*EOF,tok,$nonblank) @@ -203,7 +203,7 @@ getSpadToken tok == getGliph(tok,tt) tryGetToken tok == - getSpadToken tok => + getToken tok => $validTokens := $validTokens + 1 tok nil |