record-predicate-folding ( #call -- )

Vocabulary

compiler.tree.cleanup

Inputs

#call

a #call

Outputs

None

Word description

Adds a suitable dependency for a call to a word that is a predicate word that has been folded.

Definition

USING: accessors kernel stack-checker.dependencies ;

IN: compiler.tree.cleanup

: record-predicate-folding ( #call -- )
    >predicate-folding< pick literal?>>
    [ [ literal>> ] 2dip add-depends-on-instance-predicate ]
    [ [ class>> ] 2dip add-depends-on-class-predicate ] if ;