compiler.cfg.gvn.testing: separate out test-gvn to skip graphviz output for each GVN iteration

extra/compiler/cfg/gvn/testing/testing.factor

@@ -86,16 +86,10 @@ SYMBOL: iteration
         name>> "value-numbering" =
     ] split-when [ value-numbering ] join ;
 
-: watch-gvn ( path quot -- )
-    annotate-gvn [
+: test-gvn ( path quot -- )
     gvn-passes passes [
         0 iteration [ watch-optimizer* ] with-variable
-        ] with-variable
-    ] [ reset-gvn ] [ ] cleanup ;
+    ] with-variable ;
 
-USING: io.pathnames math math.private ;
-
-: test-gvn ( path -- )
-    "resource:work" prepend-path
-    [ 0 100 [ 1 fixnum+fast ] times ]
-    watch-gvn ;
+: watch-gvn ( path quot -- )
+    annotate-gvn [ test-gvn ] [ reset-gvn ] [ ] cleanup ;