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