slot->expr-quot ( slot-spec -- quot )

Vocabulary
compiler.cfg.value-numbering.expressions

Definition

USING: accessors combinators compiler.cfg.instructions.syntax
compiler.cfg.value-numbering.graph kernel quotations sequences
slots ;

IN: compiler.cfg.value-numbering.expressions

: slot->expr-quot ( slot-spec -- quot )
    [ name>> reader-word 1quotation ] [
        type>>
        { { use [ [ vreg>vn ] ] } { literal [ [ ] ] } } case
    ] bi append ;