From 678db7888a55efc153ddd0e56a6c81f334a96b7b Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 25 Feb 2013 08:04:18 +0900 Subject: [PATCH] Fixing octal case of parse-c-integer. --- lib/chibi/parse/common.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/chibi/parse/common.scm b/lib/chibi/parse/common.scm index 0ccdc1e0..3620d113 100644 --- a/lib/chibi/parse/common.scm +++ b/lib/chibi/parse/common.scm @@ -31,7 +31,9 @@ (hi (and (pair? o) (pair? (cdr o)) (cadr o)))) (parse-assert-range (parse-map-substring - (parse-seq (parse-sign) (parse-token char-numeric?)) + (parse-seq (parse-sign) (parse-token char-numeric?) + ;; (parse-not (parse-or (parse-sign) (parse-char #\.))) + ) string->number) lo hi))) @@ -39,7 +41,7 @@ (parse-or (parse-map (parse-seq (parse-string "0x") (parse-token char-hex-digit?)) (lambda (x) (string->number (cadr x) 16))) - (parse-map (parse-string "0" (parse-token char-octal-digit?)) + (parse-map (parse-seq (parse-string "0") (parse-token char-octal-digit?)) (lambda (x) (string->number (cadr x) 8))) (parse-integer)))