_ swap dup branch? [ member? ] [ 2drop f ] if
] deep-find >boolean ;
-: deep-subseq? ( subseq seq -- ? )
- swap '[
- _ swap dup branch? [ subseq? ] [ 2drop f ] if
+: deep-subseq-of? ( seq subseq -- ? )
+ '[
+ _ over branch? [ subseq-of? ] [ 2drop f ] if
] deep-find >boolean ;
: deep-map! ( ... obj quot: ( ... elt -- ... elt' ) -- ... obj )