new-child ( child-pos parent -- )

Vocabulary

gamelib.cell-object

Inputs

child-pos	an object
parent	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: gamelib.cell-object

:: new-child ( child-pos parent -- )
    parent parent children>> { child-pos } append >>children
    drop ;