~ chicken-core (chicken-5) 531740a3d2561a7fc9a1ea58c817aed598f5a55e

commit 531740a3d2561a7fc9a1ea58c817aed598f5a55e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Apr 29 09:49:36 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Apr 29 09:49:36 2011 +0200

    better error message for failed type-check

diff --git a/scrutinizer.scm b/scrutinizer.scm
index 5f8912b6..b913b439 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -1170,8 +1170,9 @@
 			(##core#undefined)
 			(##core#app 
 			 ##sys#error ',loc 
-			 '"type check failed"
-			 ',t ',v))))
+			 ',(sprintf "expected argument `~a' to by of type `~s'"
+			     v t)
+			 ,v))))
 		b))))))))