word-body ( word -- quot )

Vocabulary

compiler.tree.builder.private

Inputs

word

an object

Outputs

quot

an object

Definition

USING: hints kernel quotations words ;

IN: compiler.tree.builder.private

: word-body ( word -- quot )
    dup inline-recursive? [ 1quotation ] [ specialized-def ] if
    ;