show-sharing macro. by default hides sharing, but when (show-sharing …

…#t) is added will show sharing
wzimrin · Sep 3, 2011 · 2a7ea7f · 2a7ea7f
1 parent e179c8f
commit 2a7ea7f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git 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))