ivar-writer ( name lexenv -- quot/f )

Vocabulary

smalltalk.compiler.lexenv

Inputs

name	an object
lexenv	an object

Outputs

quot/f

an object

Definition

USING: accessors kernel sequences slots words ;

IN: smalltalk.compiler.lexenv

: ivar-writer ( name lexenv -- quot/f )
    dup class>> [
        [ class>> "slots" word-prop slot-named ] [ self>> ] bi
        swap [ name>> writer-word [ ] 2sequence ] [ drop f ] if*
    ] [ 2drop f ] if ;