From 2a7ea7f36da9222799dc4e2d864717f5734ddcfc Mon Sep 17 00:00:00 2001
From: Jeanette <jeanette_miranda@brown.edu>
Date: Sat, 3 Sep 2011 11:02:03 -0400
Subject: [PATCH] show-sharing macro. by default hides sharing, but when
 (show-sharing #t) is added will show sharing

---
 tracer/tracer.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/tracer/tracer.rkt b/tracer/tracer.rkt
index 76572c5..f1eb403 100644
--- a/tracer/tracer.rkt
+++ b/tracer/tracer.rkt
@@ -64,6 +64,7 @@
          [all-from-out lang/htdp-advanced
                        2htdp/image
                        2htdp/universe]
+         show-sharing
          trace
          trace-all
          trace-failed-checks
@@ -796,6 +797,7 @@
              (when (equal? first-expression '(trace-explicit))
                (set-box! trace-macro-on? #t))
              #`(#%plain-module-begin
+                (show-sharing #f)
                 (current-call
                  #,(cond
                      [(equal? first-expression '(trace-all))