<class-lexenv> ( class -- lexenv )

Vocabulary

smalltalk.compiler

Inputs

class

an object

Outputs

lexenv

an object

Definition

USING: accessors kernel locals.types smalltalk.compiler.lexenv ;

IN: smalltalk.compiler

: <class-lexenv> ( class -- lexenv )
    <lexenv> swap >>class "self" <local> >>self
    "^" <local> >>return ;