emit-enter-recursive ( label -- )

Vocabulary

stack-checker.inlining

Inputs

label

an object

Outputs

None

Definition

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

IN: stack-checker.inlining

: emit-enter-recursive ( label -- )
    enter-out get >>enter-out
    enter-in get enter-out get #enter-recursive,
    enter-out get >vector (meta-d) set ;