set-stack-effect ( word effect -- )

Vocabulary

words

Inputs

word	an object
effect	an object

Outputs

None

Definition

USING: kernel sequences ;

IN: words

: set-stack-effect ( word effect -- )
    2dup [ "declared-effect" word-prop ] dip =
    [ 2drop ] [
        [ drop changed-effect ]
        [ drop subwords [ changed-effect ] each ]
        [ "declared-effect" set-word-prop ] 2tri
    ] if ;