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