(>compare-imm) ( insn swap? -- dst src1 src2 cc )

Vocabulary

compiler.cfg.gvn.comparisons

Inputs

insn	an object
swap?	an object

Outputs

dst	an object
src1	an object
src2	an object
cc	an object

Definition

USING: accessors combinators kernel ;

IN: compiler.cfg.gvn.comparisons

: (>compare-imm) ( insn swap? -- dst src1 src2 cc )
    [ { [ dst>> ] [ src1>> ] [ src2>> ] [ cc>> ] } cleave ] dip
    swap-compare ; inline