suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed write to display-reason

Browse Source 
svn: r14920
This commit is contained in:
Kathy Gray 2009-05-22 15:23:29 +00:00
parent e878e2843c
commit c1cc6328a5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/test-engine/test-display.scm
View File

@ -216,9 +216,9 @@
(send text change-style c start end #f))))) (send text change-style c start end #f)))))
(define (display-reason text fail) (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)) (current-error-port))
(newline (current-error-port)) #;(newline (current-error-port))
(let* ((print-string (let* ((print-string
(lambda (m) (lambda (m)