-USING: compiler.cfg.gvn compiler.cfg.instructions
+USING: combinators compiler.cfg.gvn compiler.cfg.instructions
 compiler.cfg.registers compiler.cfg.debugger
 compiler.cfg.comparisons cpu.architecture tools.test kernel
 math combinators.short-circuit accessors sequences


test-diamond

[ ] [ 0 get block>cfg value-numbering drop ] unit-test

! First ##load-integer cannot be turned into a ##copy because
! the canonical leader for the value 100 is unavailable, but


test-diamond

[ ] [ 0 get block>cfg value-numbering ] unit-test

[ t ] [ 1 get successors>> first 3 get eq? ] unit-test

