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/modules/lexer/lexer.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/modules/lexer') 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