effect-effects ( word -- seq )

Vocabulary

help.lint.checks

Inputs

word

an object

Outputs

seq

an object

Definition

USING: accessors arrays effects kernel sequences ;

IN: help.lint.checks

: effect-effects ( word -- seq )
    stack-effect in>> [
        dup pair?
        [ second dup effect? [ effect>string ] [ drop f ] if ]
        [ drop f ] if
    ] map ;