method-stack-effect ( method -- effect )

Vocabulary

locals.definitions

Inputs

method

an object

Outputs

effect

an object

Definition

USING: accessors effects kernel words ;

IN: locals.definitions

: method-stack-effect ( method -- effect )
    dup "lambda" word-prop
    vars>> swap "method-generic" word-prop stack-effect dup
    [ out>> ] when <effect> ;