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

Vocabulary

dlists

Inputs

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

Outputs

obj/f	an object
?	an object

Definition

USING: accessors kernel ;

IN: dlists

: dlist-find-node-prev
    ( ... dlist quot: ( ... value -- ... ? ) -- ... obj/f ? )
    dlist-find-node [ prev>> ] [ f ] if* ; inline