local-writer ( name lexenv -- local )


Vocabulary
smalltalk.compiler.lexenv

Inputs
namean object
lexenvan object


Outputs
localan object


Definition
USING: accessors assocs kernel quotations ;

IN: smalltalk.compiler.lexenv

: local-writer ( name lexenv -- local )
local-writers>> at dup [ 1quotation ] when ;