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

Remove trace statements

Browse source
This commit is contained in:
Justin Ethier 2018-10-17 17:27:14 -04:00
parent 95ba4aa554
commit 44efba7c6d
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
scheme/cyclone/cps-optimizations.sld
View file

@ -1998,17 +1998,17 @@
(cond (cond
((ref? sym) ((ref? sym)
(let ((var (adb:get/default sym #f))) (let ((var (adb:get/default sym #f)))
(trace:info ;(trace:info
`(rec-call? ,sym ,lid ; `(rec-call? ,sym ,lid
;; TODO: crap, these are not set yet!!! ; ;; TODO: crap, these are not set yet!!!
;; may need to consider keeping out original version of find-recursive-calls and ; ;; may need to consider keeping out original version of find-recursive-calls and
;; adding a new version that does a deeper analysis ; ;; adding a new version that does a deeper analysis
,(if var (not (adbv:reassigned? var)) #f) ; ,(if var (not (adbv:reassigned? var)) #f)
,(if var (adbv:assigned-value var) #f) ; ,(if var (adbv:assigned-value var) #f)
;,((ast:lambda? var-lam)) ; ;,((ast:lambda? var-lam))
,(adb:get/default lid #f) ; ,(adb:get/default lid #f)
) ; )
) ; )
(and-let* ( (and-let* (
((not (equal? var #f))) ((not (equal? var #f)))
((not (adbv:reassigned? var))) ((not (adbv:reassigned? var)))
@ -2016,7 +2016,7 @@
((ast:lambda? var-lam)) ((ast:lambda? var-lam))
(fnc (adb:get/default lid #f)) (fnc (adb:get/default lid #f))
) )
(trace:info `(equal? ,lid ,(ast:lambda-id var-lam))) ;(trace:info `(equal? ,lid ,(ast:lambda-id var-lam)))
(equal? lid (ast:lambda-id var-lam))))) (equal? lid (ast:lambda-id var-lam)))))
(else (else
#f))) #f)))
@ -2032,7 +2032,7 @@
(define (analyze:find-recursive-calls2 exp) (define (analyze:find-recursive-calls2 exp)
(define (scan exp def-sym lid) (define (scan exp def-sym lid)
(trace:info `(analyze:find-recursive-calls2 scan ,def-sym ,exp ,lid)) ;(trace:info `(analyze:find-recursive-calls2 scan ,def-sym ,exp ,lid))
(cond (cond
((ast:lambda? exp) ((ast:lambda? exp)
(for-each (for-each
@ -2057,7 +2057,7 @@
((app? exp) ((app? exp)
(when (or ;(equal? (car exp) def-sym) TODO: def-sym is obsolete, remove it (when (or ;(equal? (car exp) def-sym) TODO: def-sym is obsolete, remove it
(rec-call? (car exp) lid)) (rec-call? (car exp) lid))
(trace:info `("recursive call" ,exp)) ;(trace:info `("recursive call" ,exp))
(with-var! (car exp) (lambda (var) (with-var! (car exp) (lambda (var)
(adbv:set-self-rec-call! var #t)))) (adbv:set-self-rec-call! var #t))))
(for-each (for-each