<inline-recursive> ( word -- label )

Vocabulary

stack-checker.inlining

Inputs

word

an object

Outputs

label

an object

Definition

USING: accessors kernel words ;

IN: stack-checker.inlining

: <inline-recursive> ( word -- label )
    inline-recursive new gensym dup t "inlined-block"
    set-word-prop >>id swap >>word ;