sequences.extras: removing contains? (probably a bad name or a bad definition).
parent
b6d25ba090
commit
d732195dad
|
@ -259,9 +259,6 @@ PRIVATE>
|
||||||
: harvest! ( seq -- newseq )
|
: harvest! ( seq -- newseq )
|
||||||
[ empty? not ] filter! ;
|
[ empty? not ] filter! ;
|
||||||
|
|
||||||
: contains? ( seq elts -- ? )
|
|
||||||
[ member? ] curry any? ; inline
|
|
||||||
|
|
||||||
: head-as ( seq n exemplar -- seq' )
|
: head-as ( seq n exemplar -- seq' )
|
||||||
[ head-slice ] [ like ] bi* ; inline
|
[ head-slice ] [ like ] bi* ; inline
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue