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

Remove debug code

Browse source
This commit is contained in:
Justin Ethier 2018-08-06 21:28:17 -04:00
parent 79e21b64e0
commit b3bf701f6f
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)))
(display "//")(write `(token ,token)) (newline)
;;(display "//")(write `(token ,token)) (newline)
(cond
((Cyc-opaque? token)
(cond