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


Vocabulary
compiler.cfg.gvn.expressions

Inputs
slot-specan object


Outputs
quotan object


Definition
USING: accessors combinators compiler.cfg.gvn.graph
compiler.cfg.instructions.syntax kernel quotations sequences
slots ;

IN: compiler.cfg.gvn.expressions

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