From c2fd9d3383375660b9c9add33bf8fd0ae950d852 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 10 Nov 2016 18:39:05 +0000
Subject: [PATCH] Remove trace

---
 scheme/cyclone/cps-optimizations.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 0ae66fa4..1d2f67e1 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -644,7 +644,7 @@
     (define (inline-prim-call? exp ivars args)
       (call/cc
         (lambda (return)
-          (trace:error `(inline-ok? ,exp ,ivars ,args))
+          ;(trace:error `(inline-ok? ,exp ,ivars ,args))
           (inline-ok? exp ivars args (list #f) return)
           (return #t))))