push-before-node ( obj dlist-node dlist -- new-dlist-node )

Vocabulary

dlists.private

Inputs

obj	an object
dlist-node	an object
dlist	an object

Outputs

new-dlist-node

an object

Definition

USING: accessors deques kernel ;

IN: dlists.private

: push-before-node
    ( obj dlist-node dlist -- new-dlist-node )
    2dup front>> eq?
    [ nip push-front* ] [ drop (push-before-node) ] if ; inline