svn: r14957
This commit is contained in:
Mike Sperber 2009-05-23 12:21:16 +00:00
parent b9a7dc01b8
commit 77e4a3aa29

View File

@ -98,9 +98,9 @@
(formatter (unequal-test fail))
(formatter (unequal-actual fail)))]
[(outofrange? fail)
(print "Actual value ~F is not within ~v of expected value ~F."
(print "Actual value ~F is not within ~a of expected value ~F."
(formatter (outofrange-test fail))
(format (outofrange-range fail))
(formatter (outofrange-range fail))
(formatter (outofrange-actual fail)))]
[(incorrect-error? fail)
(print "check-error encountered the following error instead of the expected ~a~n :: ~a"