fold-call ( #call word -- )

Vocabulary

compiler.tree.propagation.simple

Inputs

#call	an object
word	an object

Outputs

None

Definition

USING: accessors compiler.tree.propagation.info kernel ;

IN: compiler.tree.propagation.simple

: fold-call ( #call word -- )
    [ (fold-call) ] [ drop out-d>> ] 2bi set-value-infos ;