compiler.cfg.gvn.testing: minor fix
parent
1adfdc5fd6
commit
cce1f9d859
|
@ -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 ;
|
||||
|
|
|
@ -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* [
|
||||
|
|
Loading…
Reference in New Issue