Permalink
Browse files

sets: using reject in a couple places.

  • Loading branch information...
1 parent 6b29a50 commit 7e7efe8128024edea81d2ead57c4d2430d3fdbea @mrjbq7 mrjbq7 committed Jan 6, 2017
Showing with 2 additions and 2 deletions.
  1. +2 −2 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 ;

0 comments on commit 7e7efe8

Please sign in to comment.