steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sets: using reject in a couple places.

char-rename
John Benediktsson 2017-01-06 14:08:42 -08:00
parent 6b29a50cd4
commit 7e7efe8128
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sets/sets.factor
View File

@ -73,7 +73,7 @@ M: set union [ (union) ] keep set-like ;
small/large sequence/tester filter ; inline small/large sequence/tester filter ; inline
: (diff) ( set1 set2 -- seq ) : (diff) ( set1 set2 -- seq )
sequence/tester [ not ] compose filter ; inline sequence/tester reject ; inline
PRIVATE> PRIVATE>
@ -162,7 +162,7 @@ M: sequence clear-set
tester filter ; tester filter ;
: without ( seq set -- subseq ) : without ( seq set -- subseq )
tester [ not ] compose filter ; tester reject ;
: adjoin-all ( seq set -- ) : adjoin-all ( seq set -- )
[ adjoin ] curry each ; [ adjoin ] curry each ;