remove error printf for drdr

svn: r18349
2010-02-26 14:37:51 +00:00 · 2010-02-26 14:37:51 +00:00 · 2bda690d2d
commit 2bda690d2d
parent 32f6302abd
1 changed files with 1 additions and 1 deletions
--- a/collects/tests/mzscheme/stx.ss
+++ b/collects/tests/mzscheme/stx.ss
@ -469,7 +469,7 @@
  (let ([b (identifier-binding s)])
    (if (list? b)
        (list* (let-values ([(name base) (module-path-index-split (car b))])
-                 (fprintf (current-error-port) ">>>>base = ~s\n" base)
+                 ;(fprintf (current-error-port) ">>>>base = ~s\n" base)
                 name)
               (cadr b)
               (let-values ([(name base) (module-path-index-split (caddr b))])