push-before ( ... obj dlist quot: ( ... obj -- ... ? ) -- ... dlist-node )

Vocabulary

dlists

Inputs

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

Outputs

dlist-node

an object

Definition

USING: accessors deques dlists.private kernel ;

IN: dlists

: push-before
    ( ... obj dlist quot: ( ... obj -- ... ? ) -- ... dlist-node )
    [ obj>> ] prepose over [ dlist-find-node ] dip swap
    [ swap push-before-node ] [ push-back* ] if* ; inline