Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing octal case of parse-c-integer.

Browse source
This commit is contained in:
Alex Shinn 2013-02-25 08:04:18 +09:00
parent 3b52d30af1
commit 678db7888a
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/parse/common.scm
View file

@ -31,7 +31,9 @@
(hi (and (pair? o) (pair? (cdr o)) (cadr o)))) (hi (and (pair? o) (pair? (cdr o)) (cadr o))))
(parse-assert-range (parse-assert-range
(parse-map-substring (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) string->number)
lo hi))) lo hi)))
@ -39,7 +41,7 @@
(parse-or (parse-or
(parse-map (parse-seq (parse-string "0x") (parse-token char-hex-digit?)) (parse-map (parse-seq (parse-string "0x") (parse-token char-hex-digit?))
(lambda (x) (string->number (cadr x) 16))) (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))) (lambda (x) (string->number (cadr x) 8)))
(parse-integer))) (parse-integer)))