^^slot ( obj slot scale tag -- vreg )


Vocabulary
compiler.cfg.hats

Inputs
objan object
slotan object
scalean object
tagan object


Outputs
vregan object


Definition
USING: compiler.cfg.instructions compiler.cfg.registers kernel ;

IN: compiler.cfg.hats

: ^^slot ( obj slot scale tag -- vreg )
[ [ [ [ next-vreg dup [ ] dip ] dip ] dip ] dip ] dip
##slot, ; inline