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

Vocabulary

dlists

Inputs

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

Outputs

node/f

an object

Definition

USING: accessors kernel ;

IN: dlists

: (dlist-find-node)
    ( ... dlist-node quot: ( ... node -- ... ? ) -- ... node/f )
    over [
        [ call ] [ drop ] [ [ next>> ] dip (dlist-find-node) ]
        2if
    ] [ 2drop f ] if ; inline recursive