scan-class ( -- class )

Vocabulary

parser

Inputs

None

Outputs

class

an object

Definition

USING: classes kernel ;

IN: parser

: scan-class ( -- class )
    scan-object \ f or dup classoid?
    [ classoid-expected ] unless ;