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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-08-14 17:38:05 +00:00
parent d0c0c18d74
commit eb57300bdd
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
read.scm
View file

@ -742,12 +742,14 @@
((eq? t #\))
(reverse lis))
(else
(loop (cons t lis) (parse2 fp)))))
)
;; Close parent, stop current read loop
;; Quote
;; , - could be unquote or unquote-splicing
;; # - get next char(s)
(loop (cons t lis) (parse2 fp))))))
((eq? token #\')
(list 'quote (parse2 fp)))
((eq? token #\`)
(list 'quasiquote (parse2 fp)))
;; TODO: , - tricky, could be unquote or unquote-splicing
;;((eq? t #\`)
;; (list 'quasiquote (parse2 fp)))
;; Other special cases?
(else
token))))