enum-elt-root-name ( enum-elt -- root-name )

Vocabulary

classes.enumeration.private

Inputs

enum-elt

an object

Outputs

root-name

an object

Definition

USING: accessors kernel sequences splitting words ;

IN: classes.enumeration.private

: enum-elt-root-name ( enum-elt -- root-name )
    dup "parent-enum" word-prop [ name>> ] bi@ ?head t assert=
    rest ;