diff options
| author | bd <bdunahu@operationnull.com> | 2025-01-18 11:44:35 -0700 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-01-18 11:44:35 -0700 |
| commit | 78b84826c9251d88dc082fbcc625a63638066e06 (patch) | |
| tree | 4c5c21e20c3d0b6694e00b9222caf89c983fe4a6 /src | |
| parent | b1e901b5ea18eb5b1fc985ae2d44737858afc3e2 (diff) | |
Add lexer support for add, mul, div, and mod
Diffstat (limited to 'src')
| -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) |