add-child ( c h -- )

Vocabulary

classes.hierarchy.private

Inputs

c	an object
h	an object

Outputs

None

Definition

USING: assocs classes kernel sequences ;

IN: classes.hierarchy.private

: add-child ( c h -- )
    over superclass-of swap at*
    [ swap suffix! drop ] [ 2drop ] if ;