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

Vocabulary

dlists.private

Inputs

obj	an object
dlist-node	an object

Outputs

new-dlist-node

an object

Definition

USING: accessors dlists kernel ;

IN: dlists.private

: (push-before-node) ( obj dlist-node -- new-dlist-node )
    [ [ prev>> ] keep <dlist-node> dup ] keep
    [ dupd next<< ] change-prev drop ; inline