sequences: adding related-words for filter and reject.

diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor
index b8f59d7f6ea1206bf024d505e78a854f2c1ff559..9504b360c449e53515683a4693cbad8afa5339a0 100644 (file)
--- a/core/sequences/sequences-docs.factor
+++ b/core/sequences/sequences-docs.factor
@@ -513,6 +513,8 @@ HELP: filter!
 { $description "Applies the quotation to each element in turn, and removes elements for which the quotation outputs a false value." }
 { $side-effects "seq" } ;
 
+{ filter filter-as filter! } related-words
+
 HELP: reject
 { $values { "seq" sequence } { "quot" { $quotation ( ... elt -- ... ? ) } } { "subseq" "a new sequence" } }
 { $description "Applies the quotation to each element in turn, and outputs a new sequence removing with the elements of the original sequence for which the quotation output a true value." } ;
@@ -526,6 +528,8 @@ HELP: reject!
 { $description "Applies the quotation to each element in turn, and removes elements for which the quotation outputs a true value." }
 { $side-effects "seq" } ;
 
+{ reject reject-as reject! } related-words
+
 HELP: interleave
 { $values { "seq" sequence } { "between" quotation } { "quot" { $quotation ( ... elt -- ... ) } } }
 { $description "Applies " { $snippet "quot" } " to each element in turn, also invoking " { $snippet "between" } " in-between each pair of elements." }