sets: simpler M\ sequence members.

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index b65f4ba5622973e4b99f07c406a658c3c7219591..8fc421045537ed02458724875ddc7b2df65cfa2a 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -106,17 +106,6 @@ M: set duplicates drop f ;
 
 M: set all-unique? drop t ;
 
-<PRIVATE
-
-: (pruned) ( elt set accum -- )
-    2over ?adjoin [ nip push ] [ 3drop ] if ; inline
-
-: pruned ( seq -- newseq )
-    [ f fast-set ] [ length <vector> ] bi
-    [ [ (pruned) ] 2curry each ] keep ;
-
-PRIVATE>
-
 ! Sequences are sets
 INSTANCE: sequence set
 
@@ -133,7 +122,7 @@ M: sequence set-like
     [ members ] dip like ;
 
 M: sequence members
-    [ pruned ] keep like ;
+    f fast-set [ ?adjoin ] curry filter ;
 
 M: sequence null?
     empty? ; inline