remove debugging printf

svn: r13515
2009-02-10 15:30:30 +00:00 · 2009-02-10 15:30:30 +00:00 · 01b014c2b3
commit 01b014c2b3
parent 36e903c81f
1 changed files with 0 additions and 2 deletions
--- 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