define-vregs-method ( insn slots word -- )


Vocabulary
compiler.cfg.def-use.private

Inputs
insnan object
slotsan object
wordan object


Outputs
None

Definition
USING: accessors generic kernel sequences words ;

IN: compiler.cfg.def-use.private

: define-vregs-method ( insn slots word -- )
[ [ drop ] ] dip [ create-method ] curry
[ [ [ name>> ] map slot-array-quot ] bi* define ] curry
if-empty ; inline