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