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

Allowing fractions with prefixes in srfi-38.

Browse source
This commit is contained in:
Alex Shinn 2012-11-04 00:35:55 +09:00
parent 5f323551c9
commit c55fa6fe4d
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/38.scm
View file

@ -165,6 +165,8 @@
(read-label (cons (read-char in) res))) (read-label (cons (read-char in) res)))
((and (memv c '(#\+ #\-)) (null? res)) ((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)))
(read-label (cons (read-char in) res)))
(else (else
(list->string (reverse res)))))) (list->string (reverse res))))))
(define (read-number base) (define (read-number base)