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

Re-enabled debugging

Browse source
This commit is contained in:
Justin Ethier 2017-12-01 16:11:14 -05:00
parent 7f6271d622
commit a8527380a6
1 changed files with 16 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
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,8 +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?
;(write `(DEBUG ,cleaned)) (display "/* ")
;(newline) (write `(DEBUG ,cleaned))
(display "*/ ")
(newline)
(analyze cleaned a-env))) (analyze cleaned a-env)))
(define (analyze-syntax exp a-env) (define (analyze-syntax exp a-env)
@ -848,8 +850,10 @@
(current-error-port)) (current-error-port))
(newline (current-error-port))) (newline (current-error-port)))
;(log exp) ;(log exp)
;(write `(expand ,exp)) (display "/* ")
;(newline) (write `(expand ,exp))
(display "*/ ")
(newline)
(cond (cond
((const? exp) exp) ((const? exp) exp)
((prim? exp) exp) ((prim? exp) exp)
@ -939,8 +943,10 @@
(if local (if local
(cdr local) (cdr local)
(env:lookup (car exp) env #f))))) (env:lookup (car exp) env #f)))))
;(write `(app DEBUG ,(car exp) ,val)) (display "/* ")
;(newline) (write `(app DEBUG ,(car exp) ,val))
(display "*/ ")
(newline)
(cond (cond
((tagged-list? 'macro val) ((tagged-list? 'macro val)
(_expand ; Could expand into another macro (_expand ; Could expand into another macro