prepare-stack ( word -- )

Vocabulary

stack-checker.inlining

Inputs

word

a word

Outputs

None

Word description

Called when an inline recursive word is compiled.

Definition

USING: accessors kernel namespaces sequences
stack-checker.backend stack-checker.state ;

IN: stack-checker.inlining

: prepare-stack ( word -- )
    required-stack-effect in>>
    [ length ensure-d drop ] [
        meta-d clone enter-in set meta-d swap make-copies
        enter-out set
    ] bi ;