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

Issue #112 - Final version of the reader

Browse source
This commit is contained in:
Justin Ethier 2016-10-24 01:41:39 +00:00
parent d6881ed7d9
commit b55ff76701
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
scheme/read.sld
View file

@ -532,14 +532,13 @@
(define (parse-atom a) (define (parse-atom a)
(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)))) (if (or (equal? a '(#\+ #\i #\n #\f #\. #\0))
(if (or (eq? atom +inf.0) (equal? a '(#\- #\i #\n #\f #\. #\0)))
(eq? atom -inf.0)) (expt 2 1000000)
(expt 2 1000000) (if (or (equal? a '(#\+ #\n #\a #\n #\. #\0))
(if (or (eq? atom +nan.0) (equal? a '(#\- #\n #\a #\n #\. #\0)))
(eq? atom -nan.0)) (/ 0.0 0.0)
(/ 0.0 0.0) (string->symbol (list->string a))))))
atom)))))
;;;;; ;;;;;
;; Read next character from port, using buffered char if available ;; Read next character from port, using buffered char if available