From 6810b922eeea59f05893925e7cccc5c7433037a9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 9 Jul 2009 23:13:30 -0500
Subject: [PATCH] compiler.cfg: move back-edge? word from stack-analysis to
 top-level vocab

---
 basis/compiler/cfg/cfg.factor                           | 3 +++
 basis/compiler/cfg/stack-analysis/stack-analysis.factor | 3 ---
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/compiler/cfg/cfg.factor b/basis/compiler/cfg/cfg.factor
index 68d7e15a5d..12a1180d40 100644
--- a/basis/compiler/cfg/cfg.factor
+++ b/basis/compiler/cfg/cfg.factor
@@ -48,6 +48,9 @@ SYMBOL: visited
         building get push
     ] with-variable ; inline
 
+: back-edge? ( from to -- ? )
+    [ number>> ] bi@ > ;
+
 TUPLE: cfg { entry basic-block } word label spill-counts post-order ;
 
 : <cfg> ( entry word label -- cfg ) f f cfg boa ;
diff --git a/basis/compiler/cfg/stack-analysis/stack-analysis.factor b/basis/compiler/cfg/stack-analysis/stack-analysis.factor
index fb71fe332d..ab16bbea44 100644
--- a/basis/compiler/cfg/stack-analysis/stack-analysis.factor
+++ b/basis/compiler/cfg/stack-analysis/stack-analysis.factor
@@ -60,9 +60,6 @@ UNION: sync-if-back-edge
     ##dispatch
     ##loop-entry ;
 
-: back-edge? ( from to -- ? )
-    [ number>> ] bi@ > ;
-
 : sync-state? ( -- ? )
     basic-block get successors>>
     [ [ predecessors>> ] keep '[ _ back-edge? ] any? ] any? ;