From 47f43d54c002dd16b5a94311a9c273371ec240a8 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 3 Mar 2016 22:38:33 -0500
Subject: [PATCH] Only generate call history for top-level (or library) defines

---
 scheme/cyclone/cgen.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 908c2b51..002808a0 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -1253,7 +1253,9 @@
                          "") ; No varargs, skip
                        (c:serialize
                          (c:append
-                           (c-code (st:->code trace))
+                           (c-code 
+                             ;; Only trace when entering initial defined function
+                             (if has-closure? "" (st:->code trace)))
                            body)
                          "  ")
                        "; \n"