print-children ( h c i -- )

Vocabulary

classes.hierarchy.private

Inputs

h	an object
c	an object
i	an object

Outputs

None

Definition

USING: assocs kernel math sequences ;

IN: classes.hierarchy.private

:: print-children ( h c i -- )
    c i [ print-root-class ] [ print-class ] if-zero c h at
    [ h swap i 1 + print-children ] each ;