add-to-dlist ( value key dlist -- node ) (original) (raw)

add-to-dlist ( value key dlist -- node )

Vocabulary
linked-assocs.private

Inputs

value	an object
key	an object
dlist	an object

Outputs

node	an object

Definition

USING: arrays deques kernel ;

IN: linked-assocs.private

: add-to-dlist ( value key dlist -- node )
[ swap 2array ] dip push-back* ; inline