deep-member? ( obj seq -- ? )

Vocabulary

sequences.deep

Inputs

obj	an object
seq	an object

Outputs

?

an object

Definition

USING: kernel sequences ;

IN: sequences.deep

: deep-member? ( obj seq -- ? )
    swap [ swap dup branch? [ member? ] [ 2drop f ] if ] curry
    deep-find >boolean ;