Removed write to display-reason

svn: r14920
2009-05-22 15:23:29 +00:00 · 2009-05-22 15:23:29 +00:00 · c1cc6328a5
commit c1cc6328a5
parent e878e2843c
1 changed files with 2 additions and 2 deletions
--- 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)