~ chicken-core (chicken-5) 7b104cf043bf3ad706f66ae1cc14bee6a3034cc8

commit 7b104cf043bf3ad706f66ae1cc14bee6a3034cc8
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Mar 20 17:26:53 2011 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Mar 20 17:26:53 2011 +0100

    use better english for some scrutinizer warnings

diff --git a/scrutinizer.scm b/scrutinizer.scm
index e2bc6227..b41d6945 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -465,7 +465,7 @@
 	(report
 	 loc
 	 (sprintf
-	  "~aexpected a value of type `~a', but were given a value of type `~a'"
+	  "~aexpected a value of type `~a', but was given a value of type `~a'"
 	  (pname) 
 	  xptype
 	  ptype)))
@@ -476,7 +476,7 @@
 	    (report 
 	     loc
 	     (sprintf
-	      "~aexpected ~a argument~a, but where given ~a argument~a"
+	      "~aexpected ~a argument~a, but was given ~a argument~a"
 	      (pname) alen (multiples alen)
 	      nargs (multiples nargs)))))
 	(do ((args (cdr args) (cdr args))
@@ -487,7 +487,7 @@
 	    (report
 	     loc
 	     (sprintf
-	      "~aexpected argument #~a of type `~a', but where given an argument of type `~a'"
+	      "~aexpected argument #~a of type `~a', but was given an argument of type `~a'"
 	      (pname) i (car atypes) (car args)))))
 	(let ((r (procedure-result-types ptype values-rest (cdr args))))
 	  (d  "  result-types: ~a" r)