diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-13 17:15:27 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-13 17:15:27 +0200 |
commit | cbddc0ec9431b759567fa631dd0c19526d0ff775 (patch) | |
tree | baec265016b2357939ed00d7704c96762d50e3e9 /module/c/preprocessor2.scm | |
parent | Comment out typechecks on token stream. (diff) | |
download | calp-cbddc0ec9431b759567fa631dd0c19526d0ff775.tar.gz calp-cbddc0ec9431b759567fa631dd0c19526d0ff775.tar.xz |
Basis of token convertion.
Diffstat (limited to 'module/c/preprocessor2.scm')
-rw-r--r-- | module/c/preprocessor2.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/c/preprocessor2.scm b/module/c/preprocessor2.scm index 755eaa7b..c1db3f08 100644 --- a/module/c/preprocessor2.scm +++ b/module/c/preprocessor2.scm @@ -529,7 +529,7 @@ (list tokens*) #f)))) (let loop ((%first-time #t) (tokens tokens*)) (cond ((null? tokens)) - ((number-token? (car tokens)) + ((pp-number? (car tokens)) => (lambda (line) (let ((line (string->number line)) (remaining (drop-whitespace (cdr tokens)))) |