diff options
author | bd <bdunahu@operationnull.com> | 2024-12-31 01:45:32 -0700 |
---|---|---|
committer | bd <bdunahu@operationnull.com> | 2024-12-31 01:45:32 -0700 |
commit | 28116b7a9e77df0476f5dc15369637d508c1bfcb (patch) | |
tree | 58e893bd4bbfc56b22ba5b6026899cde81120152 /src | |
parent | c4b297fcb0e981591ea8c98339498a68c0a89ce0 (diff) |
bump version number
Diffstat (limited to 'src')
-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)) |