diff options
| -rw-r--r-- | src/modules/lexer/driver.scm | 23 |
1 files changed, 10 insertions, 13 deletions
diff --git a/src/modules/lexer/driver.scm b/src/modules/lexer/driver.scm index b4d3282..92c8687 100644 --- a/src/modules/lexer/driver.scm +++ b/src/modules/lexer/driver.scm @@ -18,23 +18,20 @@ current input port." ((char-whitespace? chr) (read-token)) - ((eqv? chr #\() - 'left-paren) - ((eqv? chr #\)) - 'right-paren) - ((eqv? chr #\{) - 'open-brace) - ((eqv? chr #\}) - 'close-brace) - ((eqv? chr #\;) - 'semi-colon) - ((eqv? chr #\~) - 'not) + ((eqv? chr #\() 'left-paren) + ((eqv? chr #\)) 'right-paren) + ((eqv? chr #\{) 'open-brace) + ((eqv? chr #\}) 'close-brace) + ((eqv? chr #\;) 'semi-colon) + ((eqv? chr #\~) 'not) + ((eqv? chr #\*) 'mul) + ((eqv? chr #\/) 'div) + ((eqv? chr #\%) 'mod) ((eqv? chr #\+) (if (take-double? chr) '++ - '+)) + 'add)) ((eqv? chr #\-) (if (take-double? chr) |