Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix to coerce inf result

Browse source
This commit is contained in:
Justin Ethier 2017-02-21 04:32:07 -05:00
parent 5641d7c7da
commit 4d7abf3b8c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/read.sld
View file

@ -593,7 +593,7 @@
(string->number (list->string a)) (string->number (list->string a))
(if (or (equal? a '(#\+ #\i #\n #\f #\. #\0)) (if (or (equal? a '(#\+ #\i #\n #\f #\. #\0))
(equal? a '(#\- #\i #\n #\f #\. #\0))) (equal? a '(#\- #\i #\n #\f #\. #\0)))
(expt 2 1000000) (expt 2.0 1000000)
(if (or (equal? a '(#\+ #\n #\a #\n #\. #\0)) (if (or (equal? a '(#\+ #\n #\a #\n #\. #\0))
(equal? a '(#\- #\n #\a #\n #\. #\0))) (equal? a '(#\- #\n #\a #\n #\. #\0)))
(/ 0.0 0.0) (/ 0.0 0.0)