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

Added TODO's

Browse source
This commit is contained in:
Justin Ethier 2016-02-22 23:00:46 -05:00
parent c6bd33bfe9
commit d434cf0f73
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/read.sld
View file

@ -305,10 +305,12 @@
;; Booleans ;; Booleans
;; Do not use add-tok below, no need to quote a bool ;; Do not use add-tok below, no need to quote a bool
((eq? #\t next-c) ((eq? #\t next-c)
;; TODO: read in rest of #true if it is there
(if all? (if all?
(parse fp '() (cons #t toks) all? #f parens ptbl) (parse fp '() (cons #t toks) all? #f parens ptbl)
#t)) #t))
((eq? #\f next-c) ((eq? #\f next-c)
;; TODO: read in rest of #false if it is there
(if all? (if all?
(parse fp '() (cons #f toks) all? #f parens ptbl) (parse fp '() (cons #f toks) all? #f parens ptbl)
#f)) #f))