value>quot ( value-info -- quot: ( code effect -- ) )

Vocabulary

compiler.tree.propagation.call-effect

Inputs

value-info

an object

Outputs

quot	a quotation with stack effect ( code effect -- )

Definition

USING: kernel ;

IN: compiler.tree.propagation.call-effect

: value>quot ( value-info -- quot: ( code effect -- ) )
    (value>quot) [ [ drop ] ] dip compose ;