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 )
    [ front>> eq? ] [ nip push-front* ]
    [ drop (push-before-node) ] 2if ; inline