inline-word ( word -- )

Vocabulary

stack-checker.inlining

Inputs

word

an object

Outputs

None

Definition

USING: kernel stack-checker.backend stack-checker.dependencies
stack-checker.recursive-state stack-checker.state words ;

IN: stack-checker.inlining

: inline-word ( word -- )
    commit-literals
    [ +definition+ depends-on ] [ declare-input-effects ] [
        dup inline-recursive-label
        [ call-recursive-inline-word ] [
            dup recursive?
            [ inline-recursive-word ]
            [ dup infer-inline-word-def ] if
        ] if*
    ] tri ;