compile-method ( lexenv ast-method -- )

Vocabulary

smalltalk.compiler

Inputs

lexenv	an object
ast-method	an object

Outputs

None

Definition

USING: accessors generic kernel smalltalk.selectors words ;

IN: smalltalk.compiler

: compile-method ( lexenv ast-method -- )
    [
        [ class>> ] [ name>> selector>generic ] bi*
        create-method
    ] [ body>> compile-method-body ] 2bi define ;