From 326298206ae736783615c47f84941d150c5f0030 Mon Sep 17 00:00:00 2001 From: Noah Lavine Date: Tue, 11 Jan 2011 18:03:04 -0500 Subject: [PATCH] Fix Hex Constants MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * module/language/ecmascript/tokenize.scm: hexadecimal constants can now use 'X' in addition to 'x'. Signed-off-by: Ludovic Courtès --- module/language/ecmascript/tokenize.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/ecmascript/tokenize.scm b/module/language/ecmascript/tokenize.scm index 405c70b76..8289b950c 100644 --- a/module/language/ecmascript/tokenize.scm +++ b/module/language/ecmascript/tokenize.scm @@ -262,7 +262,7 @@ (c1 (peek-char port))) (cond ((eof-object? c1) (digit->number c0)) - ((and (char=? c0 #\0) (char=? c1 #\x)) + ((and (char=? c0 #\0) (or (char=? c1 #\x) (char=? c1 #\X))) (read-char port) (let ((c (peek-char port))) (if (not (char-hex? c))