From 0dcf6dc0ee91d9612cb393828ad9a84d339c2392 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Sat, 8 Nov 2008 20:35:23 +0000 Subject: [PATCH] svn: r12358 --- collects/htdp/error.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/htdp/error.ss b/collects/htdp/error.ss index 4fcc667462..f9c0633492 100644 --- a/collects/htdp/error.ss +++ b/collects/htdp/error.ss @@ -55,7 +55,7 @@ (define (check-result pname pred? expected given . other-given) (if (pred? given) given - (tp-error pname "result of type <~a> expected, given: ~a" expected + (tp-error pname "result of type <~a> expected, your function produced ~a" expected (if (pair? other-given) (car other-given) given)))) @@ -63,7 +63,7 @@ ;; check-arg : sym bool str str TST -> void (define (check-arg pname condition expected arg-posn given) (unless condition - (tp-error pname "expected <~a> as ~a argument, given: ~e" + (tp-error pname "expected <~a> as ~a argument, given: ~a" expected arg-posn given))) ;; check-arity : sym num (list-of TST) -> void