From 9e25c9d5aeeda7557180dd1eb0af441b67290509 Mon Sep 17 00:00:00 2001
From: Keita Haga <keitahaga@mail.com>
Date: Mon, 17 Jan 2011 17:35:07 +0900
Subject: [PATCH] assocs: correct the class of output value in assoc-subset?
 word

---
 core/assocs/assocs-docs.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/assocs/assocs-docs.factor b/core/assocs/assocs-docs.factor
index 6d66d77abe..f428d11181 100644
--- a/core/assocs/assocs-docs.factor
+++ b/core/assocs/assocs-docs.factor
@@ -303,7 +303,7 @@ HELP: assoc-refine
 { $description "Outputs the intersection of all the assocs of the assocs sequence " { $snippet "seq" } ", or " { $link f } " if " { $snippet "seq" } " is empty." } ;
 
 HELP: assoc-subset?
-{ $values { "assoc1" assoc } { "assoc2" assoc } { "?" "a new assoc" } }
+{ $values { "assoc1" assoc } { "assoc2" assoc } { "?" boolean } }
 { $description "Tests if " { $snippet "assoc2" } " contains all key/value pairs of " { $snippet "assoc1" } "." } ;
 
 HELP: assoc=