summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2024-12-31 01:45:32 -0700
committerbd <bdunahu@operationnull.com>2024-12-31 01:45:32 -0700
commit28116b7a9e77df0476f5dc15369637d508c1bfcb (patch)
tree58e893bd4bbfc56b22ba5b6026899cde81120152 /src
parentc4b297fcb0e981591ea8c98339498a68c0a89ce0 (diff)
bump version number
Diffstat (limited to 'src')
-rwxr-xr-xsrc/gscc2
-rw-r--r--src/modules/lexer/lexer.scm6
2 files changed, 4 insertions, 4 deletions
diff --git a/src/gscc b/src/gscc
index fbef106..27ee6b0 100755
--- a/src/gscc
+++ b/src/gscc
@@ -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))