first-literal ( #call -- obj )

Vocabulary

compiler.tree.propagation.info

Inputs

#call

an object

Outputs

obj

an object

Definition

USING: accessors kernel sequences ;

IN: compiler.tree.propagation.info

: first-literal ( #call -- obj )
    dup in-d>> first node-value-info literal>> ;