push-node-front ( dlist-node dlist -- )

Vocabulary

dlists

Inputs

dlist-node	an object
dlist	an object

Outputs

None

Definition

USING: accessors kernel ;

IN: dlists

: push-node-front ( dlist-node dlist -- )
    dupd [ >>next ] change-front
    [ set-next-prev ] [ set-back-to-front ] bi* ;