From 01b014c2b34a6daf0020907b66b6eed7c8ee92b4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 10 Feb 2009 15:30:30 +0000
Subject: [PATCH] remove debugging printf

svn: r13515
---
 collects/drscheme/private/debug.ss | 2 --
 1 file changed, 2 deletions(-)

diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss
index 95965cc3f6..132a23caa6 100644
--- a/collects/drscheme/private/debug.ss
+++ b/collects/drscheme/private/debug.ss
@@ -224,9 +224,7 @@ profile todo:
                                      orig-exp
                                      (namespace-syntax-introduce
                                       (datum->syntax #f orig-exp)))])
-                   (printf "> ~s\n" (syntax->datum exp))
                    (let ([top-e (expand-syntax-to-top-form exp)]) 
-                     (printf "~s\n" (syntax->datum top-e))
                      (syntax-case top-e (begin) 
                        [(begin expr ...)
                         ;; Found a `begin', so expand/eval each contained