record-folding ( #call -- )

Vocabulary

compiler.tree.cleanup

Inputs

#call

an object

Outputs

None

Definition

USING: accessors classes kernel stack-checker.dependencies ;

IN: compiler.tree.cleanup

: record-folding ( #call -- )
    dup word>> predicate?
    [ record-predicate-folding ]
    [ word>> +definition+ depends-on ] if ;