From b1a25706558e0a69304fdceabe273790b64d7e20 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Mon, 11 Oct 2010 11:09:46 +0200 Subject: [PATCH] Add documentation for assocs:assoc-refine --- core/assocs/assocs-docs.factor | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/core/assocs/assocs-docs.factor b/core/assocs/assocs-docs.factor index 2439f03aac..9fee74897c 100644 --- a/core/assocs/assocs-docs.factor +++ b/core/assocs/assocs-docs.factor @@ -298,6 +298,10 @@ HELP: assoc-all? { $values { "assoc" assoc } { "quot" { $quotation "( ... key value -- ... ? )" } } { "?" "a boolean" } } { $description "Tests if all entries in the assoc satisfy a predicate by applying the quotation to each entry in turn. a predicate quotation to entry in the assoc. Iteration stops if an entry is found for which the quotation outputs " { $link f } ". If the assoc is empty, always outputs " { $link t } "." } ; +HELP: assoc-refine +{ $values { "seq" sequence } { "assoc" assoc } } +{ $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" } } { $description "Tests if " { $snippet "assoc2" } " contains all key/value pairs of " { $snippet "assoc1" } "." } ;