compiler.cfg.gvn.testing: minor fix

db4
Alex Vondrak 2011-06-23 17:33:49 -07:00 committed by John Benediktsson
parent 1adfdc5fd6
commit cce1f9d859
2 changed files with 3 additions and 2 deletions

View File

@ -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 ;

View File

@ -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* [