emit-enter-recursive ( label -- )

Vocabulary

stack-checker.inlining

Inputs

label

an object

Outputs

None

Definition

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

IN: stack-checker.inlining

: emit-enter-recursive ( label -- )
    dup current-recursive set enter-out get >>enter-out
    enter-in get enter-out get #enter-recursive,
    enter-out get >vector (meta-d) set
    meta-d length inner-d-index set ;