Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-10 22:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing negative numbers with base prefixes in srfi-38.

Browse source
This commit is contained in:
Alex Shinn 2012-11-04 00:32:13 +09:00
parent 195cbeca6d
commit 5f323551c9
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lib/srfi/38.scm
View file

@ -158,11 +158,15 @@
(shared '())) (shared '()))
(define (read-label res) (define (read-label res)
(let ((c (peek-char in))) (let ((c (peek-char in)))
(if (and (not (eof-object? c)) (cond
(or (char-numeric? c) ((and (not (eof-object? c))
(memv (char-downcase c) '(#\a #\b #\c #\d #\e #\f)))) (or (char-numeric? c)
(read-label (cons (read-char in) res)) (memv (char-downcase c) '(#\a #\b #\c #\d #\e #\f))))
(list->string (reverse res))))) (read-label (cons (read-char in) res)))
((and (memv c '(#\+ #\-)) (null? res))
(read-label (cons (read-char in) res)))
(else
(list->string (reverse res))))))
(define (read-number base) (define (read-number base)
(let* ((str (read-label '())) (let* ((str (read-label '()))
(n (string->number str base)) (n (string->number str base))