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

Issue #52 - Recognize flonums with a leading dot

Browse source
This commit is contained in:
Justin Ethier 2016-04-01 03:29:08 -04:00
parent a5a2683f19
commit ad94e0eed9
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/read.sld
View file

@ -498,7 +498,11 @@
(define (token-numeric? a)
(or (char-numeric? (car a))
(and (> (length a) 1)
(char-numeric? (cadr a))
(eq? #\. (car a))
(char-numeric? (cadr a)))
(and (> (length a) 1)
(or (char-numeric? (cadr a))
(eq? #\. (cadr a)))
(sign? (car a)))))
;; parse-atom -> [chars] -> literal