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

Vector parsing

Browse source
This commit is contained in:
Justin Ethier 2017-08-14 22:47:27 +00:00
parent 93798144b2
commit 87a83f43e4
1 changed files with 20 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
read.scm
View file

@ -743,9 +743,26 @@
(reverse lis))
(else
(loop (cons t lis) (parse2 fp))))))
((eq? token #())
;; TODO: vector parsing, similar to list
'TODO)
((vector? token)
(let loop ((lis '())
(t (parse2 fp)))
(cond
((eof-object? t)
(error "missing closing parenthesis"))
((eq? t #\))
(list->vector (reverse lis)))
(else
(loop (cons t lis) (parse2 fp))))))
;;((bytevector? token)
;; (let loop ((lis '())
;; (t (parse2 fp)))
;; (cond
;; ((eof-object? t)
;; (error "missing closing parenthesis"))
;; ((eq? t #\))
;; (list->vector (reverse lis)))
;; (else
;; (loop (cons t lis) (parse2 fp))))))
((eq? token #\')
(list 'quote (parse2 fp)))
((eq? token #\`)