diff --git a/extra/compiler/graphviz/graphviz.factor b/extra/compiler/graphviz/graphviz.factor index 79a72b33ea..3e9dbc2849 100644 --- a/extra/compiler/graphviz/graphviz.factor +++ b/extra/compiler/graphviz/graphviz.factor @@ -58,7 +58,7 @@ IN: compiler.graphviz : cfg-vertex, ( bb -- ) [ number>> number>string ] - [ kill-block? { "color=grey" "style=filled" } { } ? ] + [ kill-block?>> { "color=grey" "style=filled" } { } ? ] bi node-style, ; : cfgs ( cfgs -- )