(emit-use-conversion) ( src preferred required -- new-src' )

Vocabulary

compiler.cfg.representations.rewrite

Inputs

src	an object
preferred	an object
required	an object

Outputs

new-src'

an object

Definition

USING: assocs compiler.cfg.registers
compiler.cfg.representations.conversion kernel namespaces ;

IN: compiler.cfg.representations.rewrite

:: (emit-use-conversion)
    ( src preferred required -- new-src' )
    preferred required eq?
    [ src ] [
        src required alternatives get [
            required next-vreg-rep :> new-src [ new-src ] 2dip
            preferred emit-conversion new-src
        ] 2cache
    ] if ;