dlist-find-node ( ... dlist quot: ( ... node -- ... ? ) -- ... node/f )

Vocabulary

dlists

Inputs

dlist	an object
quot	a quotation with stack effect ( ... node -- ... ? )

Outputs

node/f

an object

Definition

USING: accessors kernel ;

IN: dlists

: dlist-find-node
    ( ... dlist quot: ( ... node -- ... ? ) -- ... node/f )
    [ front>> ] dip (dlist-find-node) ; inline