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

Cleanup

Browse source
This commit is contained in:
Justin Ethier 2017-08-17 16:36:01 +00:00
parent 4b7f2cba63
commit f61ba6ee4a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/read.sld
View file

@ -765,7 +765,7 @@
result))) result)))
(define (parse2 fp) (define (parse2 fp)
(let ((token (read-token fp))) ;; TODO: this will be a C call (let ((token (read-token fp)))
;(write `(token ,token)) ;(write `(token ,token))
(cond (cond
((Cyc-opaque? token) ((Cyc-opaque? token)
@ -791,7 +791,7 @@
((Cyc-opaque-unsafe-eq? token #\,) ((Cyc-opaque-unsafe-eq? token #\,)
(list 'unquote (parse2 fp))) (list 'unquote (parse2 fp)))
(else (else
token))) ;; TODO: error if this is returned to original caller of parse2 token))) ;; error if this is returned to original caller of parse2
((vector? token) ((vector? token)
(cond (cond
((= (vector-length token) 2) ;; Special case: number ((= (vector-length token) 2) ;; Special case: number