class-name ( name -- quot/f ) (original) (raw)

class-name ( name -- quot/f )

Vocabulary
smalltalk.compiler.lexenv

Inputs

name an object

Outputs

quot/f an object

Definition

USING: assocs kernel namespaces smalltalk.classes ;

IN: smalltalk.compiler.lexenv

: class-name ( name -- quot/f )
classes get at dup [ [ ] curry ] when ;