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) (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)))
;(write `(token ,token)) (display "//")(write `(token ,token)) (newline)
(cond (cond
((Cyc-opaque? token) ((Cyc-opaque? token)
(cond (cond