Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05: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)) (current-error-port))
(newline (current-error-port))) (newline (current-error-port)))
;(log exp) ;(log exp)
;;(display "/* ") (display "/* ")
;;(write `(expand ,exp)) (write `(expand ,exp))
;;(display "*/ ") (display "*/ ")
;;(newline) (newline)
(cond (cond
((const? exp) exp) ((const? exp) exp)
((prim? exp) exp) ((prim? exp) exp)
@ -988,10 +988,10 @@
#;(if v #;(if v
v v
(env:lookup (car exp) rename-env #f))))))) (env:lookup (car exp) rename-env #f)))))))
;;(display "/* ") (display "/* ")
;;(write `(app DEBUG ,(car exp) ,val ,local-env ,rename-env ,(env:lookup (car exp) env #f))) (write `(app DEBUG ,(car exp) ,val ,local-env ,rename-env ,(env:lookup (car exp) env #f)))
;;(display "*/ ") (display "*/ ")
;;(newline) (newline)
(cond (cond
((tagged-list? 'macro val) ((tagged-list? 'macro val)
(_expand ; Could expand into another macro (_expand ; Could expand into another macro
@ -1081,6 +1081,7 @@
rename-env rename-env
local-env)) local-env))
((or (define-syntax? this-exp) ((or (define-syntax? this-exp)
(letrec-syntax? this-exp)
(let-syntax? this-exp) (let-syntax? this-exp)
(lambda? this-exp) (lambda? this-exp)
(set!? this-exp) (set!? this-exp)