Emilop Lepos reported this:

As stated in the subject line:

   Welcome to scsh 0.6.7 (R6RS)
   Type ,? for help.
   > (string->number "1e2")
   #f

Apply his suggested fix, which is taken from Scheme 48.
This commit is contained in:
sperber 2006-11-18 14:16:55 +00:00
parent 0e0faad5e1
commit 640281efcb
1 changed files with 8 additions and 0 deletions

View File

@ -121,6 +121,14 @@
#f) ;inexact
((char=? (string-ref string pos) #\#)
#f)
((and (= radix 10)
(case (char-downcase (string-ref string pos))
;; One day, we have to include #\s #\f #\d #\l.
;; We don't now because STRING->FLOAT actually does the
;; wrong thing for these currently, so we'd rather barf.
((#\e) #t)
(else #f)))
#f)
(else (loop (+ pos 1))))))))))))
(define-generic really-string->number &really-string->number)