diff options
| -rw-r--r-- | src/modules/lexer/lexer.scm | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/src/modules/lexer/lexer.scm b/src/modules/lexer/lexer.scm index e6d96df..a6be215 100644 --- a/src/modules/lexer/lexer.scm +++ b/src/modules/lexer/lexer.scm @@ -7,8 +7,8 @@ current input port." (define (read-tokens-loop tokens-so-far) (let ((token (read-token))) (if token - (read-tokens-loop (cons token tokens-so-far)) - (reverse tokens-so-far)))) + (read-tokens-loop (cons token tokens-so-far)) + (reverse tokens-so-far)))) (read-tokens-loop '())) (define (read-token) @@ -41,29 +41,29 @@ current input port." (define (read-constant-helper chrs-so-far) (let ((chr (peek-char))) (cond ((and (not (eof-object? chr)) (char-numeric? chr)) - (read-constant-helper (cons (read-char) chrs-so-far))) - ((and (not (eof-object? chr)) (char-alphabetic? chr)) - (error "identifier starting with digit")) - (#t (reverse chrs-so-far))))) + (read-constant-helper (cons (read-char) chrs-so-far))) + ((and (not (eof-object? chr)) (char-alphabetic? chr)) + (error "identifier starting with digit")) + (#t (reverse chrs-so-far))))) (string->number (list->string (read-constant-helper (list chr))))) (define (read-identifier chr) (define (read-identifier-helper chrs-so-far) (let ((chr (peek-char))) (cond ((and (not (eof-object? chr)) - (or (char-alphabetic? chr) - (char-numeric? chr) - (eqv? chr #\_))) - (read-identifier-helper (cons (read-char) chrs-so-far))) - (#t (reverse chrs-so-far))))) + (or (char-alphabetic? chr) + (char-numeric? chr) + (eqv? chr #\_))) + (read-identifier-helper (cons (read-char) chrs-so-far))) + (#t (reverse chrs-so-far))))) (list->string (read-identifier-helper (list chr)))) (define (lookup-keyword id) "Given identifier ID, converts it to a keyword if one is known." (let ((found (assoc - id - '(("int" . int) - ("void" . void) - ("return" . return))))) + id + '(("int" . int) + ("void" . void) + ("return" . return))))) (if found (cdr found) id))) |