lookup-reader ( name lexenv -- reader-quot )

Vocabulary

smalltalk.compiler.lexenv

Inputs

name	an object
lexenv	an object

Outputs

reader-quot

an object

Definition

USING: combinators.short-circuit kernel ;

IN: smalltalk.compiler.lexenv

: lookup-reader ( name lexenv -- reader-quot )
    {
        [ local-reader ]
        [ ivar-reader ]
        [ drop class-name ]
        [ drop bad-identifier ]
    } 2|| ;