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

Remove debug output

Browse source
This commit is contained in:
Justin Ethier 2018-02-08 22:42:21 -05:00
parent cfe4c90b5c
commit 99ca3323b0
1 changed files with 34 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

64
scheme/eval.sld
View file

@ -463,14 +463,16 @@
;; 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 let-syntax ,exp ))
(newline)
(write `(DEBUG EXPANDED ,expanded))
(newline)
(write `(DEBUG CLEANED ,cleaned))
(display "*/ ")
(newline)
;(display "/* ")
;(write `(DEBUG let-syntax ,exp ))
;(newline)
;(write `(DEBUG EXPANDED ,expanded))
;(newline)
;(write `(DEBUG CLEANED ,cleaned))
;(newline)
;(write `(DEBUG env ,a-env))
;(display "*/ ")
;(newline)
(analyze cleaned a-env rename-env)))
(define (analyze-letrec-syntax exp a-env rename-env)
@ -495,12 +497,12 @@
(expanded (expand exp macro-env rename-env))
(cleaned (macro:cleanup expanded rename-env))
)
(display "/* ")
(write `(DEBUG letrec-syntax ,exp ))
(newline)
(write `(DEBUG EXPANDED ,cleaned))
(display "*/ ")
(newline)
;(display "/* ")
;(write `(DEBUG letrec-syntax ,exp ))
;(newline)
;(write `(DEBUG EXPANDED ,cleaned))
;(display "*/ ")
;(newline)
(analyze cleaned a-env rename-env)))
(define (analyze-syntax exp a-env)
@ -579,12 +581,12 @@
; (Cyc-er-rename rename-env a-env '())
; (Cyc-er-compare? rename-env a-env)))
))
(display "/* ")
(write `(DEBUG expand ,exp ))
(newline)
(write `(EXPANDED ,expanded))
(display "*/ ")
(newline)
;(display "/* ")
;(write `(DEBUG expand ,exp ))
;(newline)
;(write `(EXPANDED ,expanded))
;(display "*/ ")
;(newline)
(analyze expanded
a-env
rename-env))
@ -598,12 +600,12 @@
; (expanded (eval expr a-env)) ;; Expand macro
(expanded (macro:expand exp (list 'macro macro-op) a-env rename-env '()))
)
(display "/* ")
(write `(DEBUG expand ,exp))
(newline)
(write `(EXPANDED ,expanded))
(display "*/ ")
(newline)
;(display "/* ")
;(write `(DEBUG expand ,exp))
;(newline)
;(write `(EXPANDED ,expanded))
;(display "*/ ")
;(newline)
(analyze
expanded
a-env
@ -914,10 +916,12 @@
(current-error-port))
(newline (current-error-port)))
;(log exp)
(display "/* ")
(write `(expand ,exp))
(display "*/ ")
(newline)
;(display "/* ")
;(write `(expand ,exp))
;(newline)
;(write `(DEBUG env ,env))
;(display "*/ ")
;(newline)
(cond
((const? exp) exp)
((and (prim? exp) ;; Allow lambda vars to shadown primitives