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

Removing reference to digit-value.

Browse source
This commit is contained in:
Alex Shinn 2012-11-11 15:12:16 +09:00
parent 9b6c954891
commit 60690e303c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/38.scm
View file

@ -180,7 +180,7 @@
(let ((c (peek-char in))) (let ((c (peek-char in)))
(cond (cond
((char-numeric? c) ((char-numeric? c)
(lp (+ res (* (digit-value (read-char in)) k)) (* k 0.1))) (lp (+ res (* (- (char->integer (read-char in)) (char->integer #\0)) k)) (* k 0.1)))
((or (eof-object? c) (memv c delimiters)) res) ((or (eof-object? c) (memv c delimiters)) res)
(else (error "invalid char in float syntax" c)))))) (else (error "invalid char in float syntax" c))))))
(define (read-name c in) (define (read-name c in)