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

Added debugging

Browse source
This commit is contained in:
Justin Ethier 2018-08-06 20:43:15 -04:00
parent 40c73203ce
commit edf56a4c15
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

@ -8,7 +8,7 @@
;;;;
(define-library (scheme read)
(import (scheme base)
;(scheme write)
(scheme write)
(scheme char))
(export
read
@ -134,7 +134,7 @@
(define (parse fp)
(let ((token (read-token fp)))
;(write `(token ,token))
(display "//")(write `(token ,token)) (newline)
(cond
((Cyc-opaque? token)
(cond