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

Added back missing code

Browse source
This commit is contained in:
Justin Ethier 2016-02-20 02:12:54 -05:00
parent 05b264d02c
commit f7eed523be
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/read.sld
View file

@ -451,7 +451,8 @@
(define (token-numeric? a)
(or (char-numeric? (car a))
(and (> (length a) 1)
(char-numeric? (cadr a)))))
(char-numeric? (cadr a))
(sign? (car a)))))
;; parse-atom -> [chars] -> literal
(define (parse-atom a)