From f24c711f931935a44eb44244c7b78163b6610acb Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 25 May 2018 15:11:22 -0400 Subject: [PATCH] Remove trace statements --- scheme/cyclone/cps-optimizations.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index b547916f..45a0c2d7 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1652,7 +1652,7 @@ ((const? exp) exp) ((ref? exp) (when lp -(trace:error `(found var ref ,exp in loop)) + ;(trace:error `(found var ref ,exp in loop)) (with-var! exp (lambda (var) (adbv:set-ref-in-loop! var #t)))) exp) @@ -1687,7 +1687,7 @@ ((app? (car (ast:lambda-body (car inner-exp))))) ((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? ;; Continue scanning, indicating we are in a loop (map (lambda (e) (scan e #t)) exp)