>expr-quot ( insn slot-specs -- quot )


Vocabulary
compiler.cfg.gvn.expressions

Inputs
insnan object
slot-specsan object


Outputs
quotan object


Definition
USING: combinators kernel make math quotations sequences ;

IN: compiler.cfg.gvn.expressions

: >expr-quot ( insn slot-specs -- quot )
[
[ literalize , \ swap , ] [
[ [ slot->expr-quot ] map cleave>quot % ]
[ length 1 + narray-quot % ] bi
] bi*
] [ ] make ;