sequences.extras: adding a contains? (a faster sequence intersects?).

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 6805f7a2682108118bf0741179810e6cc1f4718a..f13f99f8cff31354eee48cdafc6186c05b033b72 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -195,3 +195,6 @@ PRIVATE>
 
 : harvest-as ( seq exemplar -- newseq )
     [ empty? not ] swap filter-as ;
+
+: contains? ( seq elts -- ? )
+    [ member? ] curry any? ; inline