From c1cc6328a57365520527449236934c15f6393dbc Mon Sep 17 00:00:00 2001 From: Kathy Gray Date: Fri, 22 May 2009 15:23:29 +0000 Subject: [PATCH] Removed write to display-reason svn: r14920 --- collects/test-engine/test-display.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/test-engine/test-display.scm b/collects/test-engine/test-display.scm index 3e73771cd1..f335ff7f51 100644 --- a/collects/test-engine/test-display.scm +++ b/collects/test-engine/test-display.scm @@ -216,9 +216,9 @@ (send text change-style c start end #f))))) (define (display-reason text fail) - (write (list 'display-reason fail (check-fail? fail) (message-error? fail)) + #;(write (list 'display-reason fail (check-fail? fail) (message-error? fail)) (current-error-port)) - (newline (current-error-port)) + #;(newline (current-error-port)) (let* ((print-string (lambda (m)