diff options
Diffstat (limited to 'src/modules/lexer/lexer.scm')
| -rw-r--r-- | src/modules/lexer/lexer.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/modules/lexer/lexer.scm b/src/modules/lexer/lexer.scm index dae7107..e6d96df 100644 --- a/src/modules/lexer/lexer.scm +++ b/src/modules/lexer/lexer.scm @@ -18,15 +18,15 @@ current input port." ((char-whitespace? chr) (read-token)) - ((eq? chr #\() + ((eqv? chr #\() 'left-paren) - ((eq? chr #\)) + ((eqv? chr #\)) 'right-paren) - ((eq? chr #\{) + ((eqv? chr #\{) 'open-brace) - ((eq? chr #\}) + ((eqv? chr #\}) 'close-brace) - ((eq? chr #\;) + ((eqv? chr #\;) 'semi-colon) ((char-alphabetic? chr) @@ -53,7 +53,7 @@ current input port." (cond ((and (not (eof-object? chr)) (or (char-alphabetic? chr) (char-numeric? chr) - (eq? chr #\_))) + (eqv? chr #\_))) (read-identifier-helper (cons (read-char) chrs-so-far))) (#t (reverse chrs-so-far))))) (list->string (read-identifier-helper (list chr)))) |