 
 test-diamond
 
-[ ] [ 0 get block>cfg value-numbering drop ] unit-test
+[ ] [ 0 get block>cfg value-numbering ] unit-test
 
 ! First ##load-integer cannot be turned into a ##copy because
 ! the canonical leader for the value 100 is unavailable, but

    V{ } 2 test-bb
    0 { 1 2 } edges
    0 get block>cfg
    value-numbering drop
    0 get [ instructions>> ] [ successors>> first number>> 1 - ] bi ;

[


[ ] [
    0 get block>cfg
    dup value-numbering eliminate-dead-code
] unit-test

[ f ] [ 1 get instructions>> [ ##peek? ] any? ] unit-test
