new-branch ( value children class -- node )

Vocabulary

compiler.tree

Inputs

value	an object
children	an object
class	an object

Outputs

node

an object

Definition

USING: accessors arrays kernel ;

IN: compiler.tree

: new-branch ( value children class -- node )
    new swap >>children swap 1array >>in-d ; inline