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

Allowing complex with #d prefix in srfi-38.

Browse source
This commit is contained in:
Alex Shinn 2012-11-04 00:42:23 +09:00
parent c55fa6fe4d
commit 6a0b9ee10b
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/srfi/38.scm
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)))