Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 15:27:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Disable debugging

Browse source
This commit is contained in:
Justin Ethier 2017-12-01 13:15:53 -05:00
parent 046c1f9d22
commit dd4b7243e0
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/eval.sld
View file

@ -459,8 +459,8 @@
;; 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)) ;(write `(DEBUG ,cleaned))
(newline) ;(newline)
(analyze cleaned a-env))) (analyze cleaned a-env)))
(define (analyze-syntax exp a-env) (define (analyze-syntax exp a-env)
@ -848,8 +848,8 @@
(current-error-port)) (current-error-port))
(newline (current-error-port))) (newline (current-error-port)))
;(log exp) ;(log exp)
(write `(expand ,exp)) ;(write `(expand ,exp))
(newline) ;(newline)
(cond (cond
((const? exp) exp) ((const? exp) exp)
((prim? exp) exp) ((prim? exp) exp)
@ -939,8 +939,8 @@
(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)) ;(write `(app DEBUG ,(car exp) ,val))
(newline) ;(newline)
(cond (cond
((tagged-list? 'macro val) ((tagged-list? 'macro val)
(_expand ; Could expand into another macro (_expand ; Could expand into another macro