compiler.cfg.gvn.testing: minor fix

diff --git a/extra/compiler/cfg/graphviz/graphviz.factor b/extra/compiler/cfg/graphviz/graphviz.factor
index 591e496dbdbed6e08f2a8d0b3b111713bac84503..35be22db7a56bfe6beceea4150dad304bb4ee59c 100644 (file)
--- a/extra/compiler/cfg/graphviz/graphviz.factor
+++ b/extra/compiler/cfg/graphviz/graphviz.factor
@@ -60,7 +60,6 @@ IN: compiler.cfg.graphviz
     tri* ;
 
 SYMBOL: passes
-\ optimize-cfg def>> passes set
 
 : watch-pass ( cfg pass pass# -- cfg' )
     [ perform-pass ] 2keep draw-cfg ;

diff --git a/extra/compiler/cfg/gvn/testing/testing.factor b/extra/compiler/cfg/gvn/testing/testing.factor
index c1702f23a55a8b13101b39e40c31d4a9e10a4fd7..51fd05cacc6d66c91b2a1dbda0ec0f3c36d860cd 100644 (file)
--- a/extra/compiler/cfg/gvn/testing/testing.factor
+++ b/extra/compiler/cfg/gvn/testing/testing.factor
@@ -14,7 +14,9 @@ M: integer-expr expr>str value>> number>string ;
 
 M: reference-expr expr>str value>> unparse ;
 
-M: object expr>str [ unparse ] map " " join ;
+M: sequence expr>str [ unparse ] map " " join ;
+
+M: object expr>str unparse ;
 
 : value-mapping ( from to -- str )
     over exprs>vns get value-at* [