ast-class

Vocabulary

smalltalk.ast

Definition

USING: arrays strings ;

IN: smalltalk.ast

TUPLE: ast-class
    { name string initial: "" }
    { superclass string initial: "" }
    { ivars array initial: { } } { methods array initial: { } }
    ;

Methods

USING: accessors kernel sequences smalltalk.ast
smalltalk.classes smalltalk.compiler ;

M: ast-class compile-ast
    nip [
        [ name>> ] [ superclass>> ] [ ivars>> ] tri define-class
        <class-lexenv>
    ] [ methods>> ] bi [ compile-method ] with each [ nil ] ;