From 7e7efe8128024edea81d2ead57c4d2430d3fdbea Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 6 Jan 2017 14:08:42 -0800 Subject: [PATCH] sets: using reject in a couple places. --- core/sets/sets.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/sets/sets.factor b/core/sets/sets.factor index 4a78d39865..22756b92f3 100644 --- a/core/sets/sets.factor +++ b/core/sets/sets.factor @@ -73,7 +73,7 @@ M: set union [ (union) ] keep set-like ; small/large sequence/tester filter ; inline : (diff) ( set1 set2 -- seq ) - sequence/tester [ not ] compose filter ; inline + sequence/tester reject ; inline PRIVATE> @@ -162,7 +162,7 @@ M: sequence clear-set tester filter ; : without ( seq set -- subseq ) - tester [ not ] compose filter ; + tester reject ; : adjoin-all ( seq set -- ) [ adjoin ] curry each ;