diff options
| author | bd <bdunaisky@umass.edu> | 2024-11-05 12:42:29 -0500 |
|---|---|---|
| committer | bd <bdunaisky@umass.edu> | 2024-11-05 12:42:29 -0500 |
| commit | 11ecac1d0686d5ed75b73eee0c860d7d67f6d6f0 (patch) | |
| tree | c3c7f91f49f85eab84275f98a49d5a7175a0bba9 /src/modules/lexer | |
| parent | fdcf4be12c7c8913ccd26ebcab7cb05eb2abaa48 (diff) | |
Add parser and ast generation for trivial programs
Diffstat (limited to 'src/modules/lexer')
| -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)))) |