core: using fry in a few places to see how it works.

[factor.git] / core / sets / sets.factor

diff --git a/core/sets/sets.factor b/core/sets/sets.factor
index 990b33d6f8058e95789ce7a093756df04eb865f4..a42cf6dfd854be2604ab360fce3ad38bf43937e3 100644 (file)
--- a/core/sets/sets.factor
+++ b/core/sets/sets.factor
@@ -163,9 +163,9 @@ M: sequence clear-set
     ?members over adjoin-all ;
 
 : diff! ( set1 set2 -- set1 )
-    dupd sequence/tester [ dup ] prepose pick
-    [ delete ] curry [ [ drop ] if ] curry compose each ;
+    dupd sequence/tester pick
+    '[ dup @ [ _ delete ] [ drop ] if ] each ;
 
 : intersect! ( set1 set2 -- set1 )
-    dupd sequence/tester [ dup ] prepose [ not ] compose pick
-    [ delete ] curry [ [ drop ] if ] curry compose each ;
+    dupd sequence/tester pick
+    '[ dup @ [ drop ] [ _ delete ] if ] each ;