new-dlist-link ( obj prev next class -- node )

Vocabulary

dlists

Inputs

obj	an object
prev	an object
next	an object
class	an object

Outputs

node

an object

Definition

USING: accessors kernel ;

IN: dlists

: new-dlist-link ( obj prev next class -- node )
    new swap >>next swap >>prev swap >>obj ; inline