diff options
Diffstat (limited to 'src/modules/lexer/lexer.scm')
| -rw-r--r-- | src/modules/lexer/lexer.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/modules/lexer/lexer.scm b/src/modules/lexer/lexer.scm index 4078db4..eb815b9 100644 --- a/src/modules/lexer/lexer.scm +++ b/src/modules/lexer/lexer.scm @@ -32,12 +32,12 @@ current input port." 'complement) ((eqv? chr #\+) - (if (take-two? chr) + (if (take-double? chr) 'increment 'add)) ((eqv? chr #\-) - (if (take-two? chr) + (if (take-double? chr) 'decrement 'sub)) @@ -70,7 +70,7 @@ current input port." (#t (reverse chrs-so-far))))) (list->string (read-identifier-helper (list chr)))) -(define (take-two? chr) +(define (take-double? chr) (if (eqv? chr (peek-char)) (read-char) #f)) |