check-value-effects ( word element -- )

Vocabulary

help.lint.checks

Inputs

word	an object
element	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: help.lint.checks

: check-value-effects ( word element -- )
    [ effect-effects ] [ extract-value-effects ] bi*
    [ 2dup and [ = ] [ 2drop t ] if ] 2all? [
        "$quotation stack effects in $values don't match"
        simple-lint-error
    ] unless ;