create-class ( string vocab -- word )

Vocabulary

classes.parser

Inputs

string	an object
vocab	an object

Outputs

word

an object

Definition

USING: classes kernel parser words ;

IN: classes.parser

: create-class ( string vocab -- word )
    create-word dup t "defining-class" set-word-prop
    dup set-last-word dup save-class-location
    dup create-predicate-word save-location ;