define-class ( class superclass ivars -- class-word )

Vocabulary

smalltalk.classes

Inputs

class	an object
superclass	an object
ivars	an object

Outputs

class-word

an object

Definition

USING: accessors assocs classes.tuple kernel namespaces ;

IN: smalltalk.classes

: define-class ( class superclass ivars -- class-word )
    [ create-class ] [ lookup-class ] [ ] tri*
    [ define-tuple-class ]
    [ 2drop dup dup name>> classes get set-at ] 3bi ;