small/large sequence/tester filter ; inline
: (diff) ( set1 set2 -- seq )
- sequence/tester [ not ] compose filter ; inline
+ sequence/tester reject ; inline
PRIVATE>
tester filter ;
: without ( seq set -- subseq )
- tester [ not ] compose filter ;
+ tester reject ;
: adjoin-all ( seq set -- )
[ adjoin ] curry each ;