This error should not be on stderr, because it is intended

This commit is contained in:
Jay McCarthy 2010-05-13 14:25:39 -06:00
parent dbad0093f2
commit fb8e8640bb

View File

@ -23,7 +23,7 @@
(test 'was-mismatch 'mismtach (test 'was-mismatch 'mismtach
(with-handlers ([exn:fail:contract? (with-handlers ([exn:fail:contract?
(lambda (x) (lambda (x)
(fprintf (current-error-port) "~a~n" (exn-message x)) (printf "~a~n" (exn-message x))
'was-mismatch)] 'was-mismatch)]
[exn:fail? values]) [exn:fail? values])
expr)))]))) expr)))])))