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

WIP, enabled debugging for diagnostic

Browse source
This commit is contained in:
Justin Ethier 2017-12-13 19:12:13 -05:00
parent 6f37b8597b
commit dcc49baa3b
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
scheme/eval.sld
View file

@ -858,10 +858,10 @@
(current-error-port))
(newline (current-error-port)))
;(log exp)
;;(display "/* ")
;;(write `(expand ,exp))
;;(display "*/ ")
;;(newline)
(display "/* ")
(write `(expand ,exp))
(display "*/ ")
(newline)
(cond
((const? exp) exp)
((prim? exp) exp)
@ -988,10 +988,10 @@
#;(if v
v
(env:lookup (car exp) rename-env #f)))))))
;;(display "/* ")
;;(write `(app DEBUG ,(car exp) ,val ,local-env ,rename-env ,(env:lookup (car exp) env #f)))
;;(display "*/ ")
;;(newline)
(display "/* ")
(write `(app DEBUG ,(car exp) ,val ,local-env ,rename-env ,(env:lookup (car exp) env #f)))
(display "*/ ")
(newline)
(cond
((tagged-list? 'macro val)
(_expand ; Could expand into another macro
@ -1081,6 +1081,7 @@
rename-env
local-env))
((or (define-syntax? this-exp)
(letrec-syntax? this-exp)
(let-syntax? this-exp)
(lambda? this-exp)
(set!? this-exp)