From 4940782d12ce718da30add5d85bdb2ab3570ec81 Mon Sep 17 00:00:00 2001 From: John Clements Date: Tue, 10 Jan 2006 22:21:46 +0000 Subject: [PATCH] added string? & vector? to check-arg svn: r1799 --- collects/srfi/optional.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/srfi/optional.ss b/collects/srfi/optional.ss index 534bcecd72..881ceca1fd 100644 --- 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)))