<inline-recursive> ( word -- label )

Vocabulary

stack-checker.inlining

Inputs

word

an object

Outputs

label

an object

Definition

USING: accessors kernel namespaces
stack-checker.row-polymorphism words ;

IN: stack-checker.inlining

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