Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 13:49:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed debug traces

Browse source
This commit is contained in:
Justin Ethier 2017-12-06 17:59:49 -05:00
parent b2e9524e70
commit f40232e9eb
1 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
scheme/eval.sld
View file

@ -384,10 +384,10 @@
;; - env => Environment used to expand macros
;;
(define (analyze exp env)
(newline)
(display "/* ")
(write (list 'analyze exp))
(display " */")
;;(newline)
;;(display "/* ")
;;(write (list 'analyze exp))
;;(display " */")
(cond ((self-evaluating? exp)
(analyze-self-evaluating exp))
((quoted? exp) (analyze-quoted exp))
@ -459,10 +459,10 @@
;; TODO: probably just create a fresh env for renames
;; TODO: expand, do we need to clean as well?
;; TODO: run results back through analyze: (analyze (expand env? rename-env?
(display "/* ")
(write `(DEBUG ,cleaned))
(display "*/ ")
(newline)
;;(display "/* ")
;;(write `(DEBUG ,cleaned))
;;(display "*/ ")
;;(newline)
(analyze cleaned a-env)))
(define (analyze-syntax exp a-env)
@ -850,10 +850,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)
@ -953,10 +953,10 @@
(if local
(cdr local)
(env:lookup (car exp) env #f)))))
(display "/* ")
(write `(app DEBUG ,(car exp) ,val))
(display "*/ ")
(newline)
;;(display "/* ")
;;(write `(app DEBUG ,(car exp) ,val))
;;(display "*/ ")
;;(newline)
(cond
((tagged-list? 'macro val)
(_expand ; Could expand into another macro