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

Parse inf/nan directly

Browse source
This commit is contained in:
Justin Ethier 2016-10-24 17:40:28 -04:00
parent b1ca2627d1
commit d6881ed7d9
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/read.sld
View file

@ -533,11 +533,11 @@
(if (token-numeric? a) (if (token-numeric? a)
(string->number (list->string a)) (string->number (list->string a))
(let ((atom (string->symbol (list->string a)))) (let ((atom (string->symbol (list->string a))))
(if (or (eq? atom '+inf.0) (if (or (eq? atom +inf.0)
(eq? atom '-inf.0)) (eq? atom -inf.0))
(expt 2 1000000) (expt 2 1000000)
(if (or (eq? atom '+nan.0) (if (or (eq? atom +nan.0)
(eq? atom '-nan.0)) (eq? atom -nan.0))
(/ 0.0 0.0) (/ 0.0 0.0)
atom))))) atom)))))