From b14eadd441a957c25c505c78c7400128ad83a342 Mon Sep 17 00:00:00 2001 From: Noah Lavine Date: Tue, 11 Jan 2011 18:03:04 -0500 Subject: [PATCH] Fix Hex Constants * module/language/ecmascript/tokenize.scm: hexadecimal constants can now use 'X' in addition to 'x'. --- module/language/ecmascript/tokenize.scm | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/module/language/ecmascript/tokenize.scm b/module/language/ecmascript/tokenize.scm index 594518a..4448bf6 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)) -- 1.7.3.2