check-macro-effect ( word effect -- )

Vocabulary

macros.private

Inputs

word	an object
effect	an object

Outputs

None

Definition

USING: effects kernel ;

IN: macros.private

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