Allowing complex with #d prefix in srfi-38.

This commit is contained in:
Alex Shinn 2012-11-04 00:42:23 +09:00
parent c55fa6fe4d
commit 6a0b9ee10b

View file

@ -161,9 +161,8 @@
(cond (cond
((and (not (eof-object? c)) ((and (not (eof-object? c))
(or (char-numeric? c) (or (char-numeric? c)
(memv (char-downcase c) '(#\a #\b #\c #\d #\e #\f)))) (memv (char-downcase c)
(read-label (cons (read-char in) res))) '(#\- #\+ #\a #\b #\c #\d #\e #\f #\i))))
((and (memv c '(#\+ #\-)) (null? res))
(read-label (cons (read-char in) res))) (read-label (cons (read-char in) res)))
((and (eqv? c #\/) (not (memv #\/ res))) ((and (eqv? c #\/) (not (memv #\/ res)))
(read-label (cons (read-char in) res))) (read-label (cons (read-char in) res)))