diff --git a/basis/compiler/cfg/utilities/utilities.factor b/basis/compiler/cfg/utilities/utilities.factor index 9d6927b143..8cb70cc649 100644 --- a/basis/compiler/cfg/utilities/utilities.factor +++ b/basis/compiler/cfg/utilities/utilities.factor @@ -49,7 +49,7 @@ SYMBOL: visited : has-phis? ( bb -- ? ) instructions>> first ##phi? ; -: cfg-has-phis? ( cfg -- ) +: cfg-has-phis? ( cfg -- ? ) post-order [ has-phis? ] any? ; : if-has-phis ( bb quot: ( bb -- ) -- )