From 2bda690d2ddcdc226ae41760f9b2dc876b77011b Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 26 Feb 2010 14:37:51 +0000 Subject: [PATCH] remove error printf for drdr svn: r18349 --- collects/tests/mzscheme/stx.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/mzscheme/stx.ss b/collects/tests/mzscheme/stx.ss index 468401b84d..04c2a2054a 100644 --- 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))])