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

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)))
(define (parse2 fp)
(let ((token (read-token fp))) ;; TODO: this will be a C call
(let ((token (read-token fp)))
;(write `(token ,token))
(cond
((Cyc-opaque? token)
@ -791,7 +791,7 @@
((Cyc-opaque-unsafe-eq? token #\,)
(list 'unquote (parse2 fp)))
(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)
(cond
((= (vector-length token) 2) ;; Special case: number