lexenv-union ( lexenv1 lexenv2 -- lexenv )


Vocabulary
smalltalk.compiler.lexenv

Inputs
lexenv1an object
lexenv2an object


Outputs
lexenvan object


Definition
USING: accessors assocs combinators kernel ;

IN: smalltalk.compiler.lexenv

: lexenv-union ( lexenv1 lexenv2 -- lexenv )
[ <lexenv> ] 2dip {
[ [ local-readers>> ] bi@ assoc-union >>local-readers ]
[ [ local-writers>> ] bi@ assoc-union >>local-writers ]
[ [ self>> ] either? >>self ]
[ [ return>> ] either? >>return ]
[ [ class>> ] either? >>class ]
[ [ method>> ] either? >>method ]
} 2cleave ;