^^gather-vector-4 ( src1 src2 src3 src4 rep -- vreg )

Vocabulary

compiler.cfg.hats

Inputs

src1	an object
src2	an object
src3	an object
src4	an object
rep	an object

Outputs

vreg

an object

Definition

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

IN: compiler.cfg.hats

: ^^gather-vector-4 ( src1 src2 src3 src4 rep -- vreg )
    [
        [
            [ [ [ next-vreg dup ~quotation~ dip ] dip ] dip ]
            dip
        ]
        dip
    ] dip ##gather-vector-4, ; inline