diff options
| -rwxr-xr-x | src/gscc | 2 | ||||
| -rw-r--r-- | src/modules/lexer/lexer.scm | 6 |
2 files changed, 4 insertions, 4 deletions
@@ -11,7 +11,7 @@ (modules emitter emitter)) -(define version "v0.1") +(define version "v0.1.1") (define (error message) 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)) |