From 009cfbfc8d2d4af48ce98e376aa1d43a6ae23c12 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 28 Jul 2009 07:40:09 -0500 Subject: [PATCH] compiler.cfg.utilities: fix stack effect declaration --- basis/compiler/cfg/utilities/utilities.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- ) -- )