Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +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 #\)) ((eq? t #\))
(reverse lis)) (reverse lis))
(else (else
(loop (cons t lis) (parse2 fp))))) (loop (cons t lis) (parse2 fp))))))
) ((eq? token #\')
;; Close parent, stop current read loop (list 'quote (parse2 fp)))
;; Quote ((eq? token #\`)
;; , - could be unquote or unquote-splicing (list 'quasiquote (parse2 fp)))
;; # - get next char(s) ;; TODO: , - tricky, could be unquote or unquote-splicing
;;((eq? t #\`)
;; (list 'quasiquote (parse2 fp)))
;; Other special cases? ;; Other special cases?
(else (else
token)))) token))))