cloned-value-info ( value-info -- value-info' )


Vocabulary
compiler.tree.propagation.known-words

Inputs
value-infoan object


Outputs
value-info'an object


Definition
USING: accessors kernel sequences ;

IN: compiler.tree.propagation.known-words

: cloned-value-info ( value-info -- value-info' )
clone f >>literal f >>literal?
[ [ dup [ cloned-value-info ] when ] map ] change-slots ;