added string? & vector? to check-arg

svn: r1799
2006-01-10 22:21:46 +00:00 · 2006-01-10 22:21:46 +00:00 · 4940782d12
commit 4940782d12
parent c7ae528945
1 changed files with 2 additions and 0 deletions
--- a/collects/srfi/optional.ss
+++ b/collects/srfi/optional.ss
@ -63,6 +63,8 @@
                             [(eq? pred integer?) "expected integer, "]
                             [(eq? pred pair?) "expected pair, "]
                             [(eq? pred procedure?) "expected procedure, "]
+                             [(eq? pred string?) "expected string, "]
+                             [(eq? pred vector?) "expected vector, "]
                             [else ""])])
 		(error caller (string-append expected-string "given ~s") val))
 		val)))