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

Remove trace statements

Browse source
This commit is contained in:
Justin Ethier 2018-05-25 15:11:22 -04:00
parent b69812cc3f
commit f24c711f93
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1652,7 +1652,7 @@
((const? exp) exp) ((const? exp) exp)
((ref? exp) ((ref? exp)
(when lp (when lp
(trace:error `(found var ref ,exp in loop)) ;(trace:error `(found var ref ,exp in loop))
(with-var! exp (lambda (var) (with-var! exp (lambda (var)
(adbv:set-ref-in-loop! var #t)))) (adbv:set-ref-in-loop! var #t))))
exp) exp)
@ -1687,7 +1687,7 @@
((app? (car (ast:lambda-body (car inner-exp))))) ((app? (car (ast:lambda-body (car inner-exp)))))
((equal? (caar (ast:lambda-body (car inner-exp))) loop-sym)) ((equal? (caar (ast:lambda-body (car inner-exp))) loop-sym))
) )
(trace:error `(found loop in ,exp)) ;;(trace:error `(found loop in ,exp))
;; TODO: do we want to record the lambda that is a loop? ;; TODO: do we want to record the lambda that is a loop?
;; Continue scanning, indicating we are in a loop ;; Continue scanning, indicating we are in a loop
(map (lambda (e) (scan e #t)) exp) (map (lambda (e) (scan e #t)) exp)