check-stack-effect ( word effect -- )

Vocabulary

effects

Inputs

word	an object
effect	an object

Outputs

None

Definition

USING: kernel ;

IN: effects

: check-stack-effect ( word effect -- )
    over stack-effect 2dup effect=
    [ 3drop ] [ bad-stack-effect ] if ;