self-inverse? ( insn quot -- ? )


Vocabulary
compiler.cfg.gvn.math

Inputs
insnan object
quotan object


Outputs
?an object


Definition
USING: accessors compiler.cfg.gvn.avail compiler.cfg.gvn.graph
kernel ;

IN: compiler.cfg.gvn.math

: self-inverse? ( insn quot -- ? )
[ src>> vreg>insn ] dip with-available-uses? ; inline