lookup-class ( class -- class )

Vocabulary

smalltalk.classes

Inputs

class

an object

Outputs

class

an object

Definition

USING: assocs kernel namespaces ;

IN: smalltalk.classes

: lookup-class ( class -- class )
    classes get ?at [ no-class ] unless ;