Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15: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
((ref? sym)
(let ((var (adb:get/default sym #f)))
(trace:info
`(rec-call? ,sym ,lid
;; TODO: crap, these are not set yet!!!
;; may need to consider keeping out original version of find-recursive-calls and
;; adding a new version that does a deeper analysis
,(if var (not (adbv:reassigned? var)) #f)
,(if var (adbv:assigned-value var) #f)
;,((ast:lambda? var-lam))
,(adb:get/default lid #f)
)
)
;(trace:info
; `(rec-call? ,sym ,lid
; ;; TODO: crap, these are not set yet!!!
; ;; may need to consider keeping out original version of find-recursive-calls and
; ;; adding a new version that does a deeper analysis
; ,(if var (not (adbv:reassigned? var)) #f)
; ,(if var (adbv:assigned-value var) #f)
; ;,((ast:lambda? var-lam))
; ,(adb:get/default lid #f)
; )
; )
(and-let* (
((not (equal? var #f)))
((not (adbv:reassigned? var)))
@ -2016,7 +2016,7 @@
((ast:lambda? var-lam))
(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)))))
(else
#f)))
@ -2032,7 +2032,7 @@
(define (analyze:find-recursive-calls2 exp)
(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
((ast:lambda? exp)
(for-each
@ -2057,7 +2057,7 @@
((app? exp)
(when (or ;(equal? (car exp) def-sym) TODO: def-sym is obsolete, remove it
(rec-call? (car exp) lid))
(trace:info `("recursive call" ,exp))
;(trace:info `("recursive call" ,exp))
(with-var! (car exp) (lambda (var)
(adbv:set-self-rec-call! var #t))))
(for-each