literal-inputs? ( #call -- ? )

Vocabulary

compiler.tree.propagation.simple

Inputs

#call

an object

Outputs

?

an object

Definition

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

IN: compiler.tree.propagation.simple

: literal-inputs? ( #call -- ? )
    in-d>> [ value-info literal?>> ] all? ;