From 28116b7a9e77df0476f5dc15369637d508c1bfcb Mon Sep 17 00:00:00 2001 From: bd Date: Tue, 31 Dec 2024 01:45:32 -0700 Subject: bump version number --- src/gscc | 2 +- src/modules/lexer/lexer.scm | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'src') 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)) -- cgit v1.2.3