From 355088085023e71fc7e243687e59179a6cb40487 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 28 Jul 2009 01:04:13 -0500
Subject: [PATCH] compiler.cfg.critical-edges: reset RPO

---
 basis/compiler/cfg/critical-edges/critical-edges.factor | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/cfg/critical-edges/critical-edges.factor b/basis/compiler/cfg/critical-edges/critical-edges.factor
index 92b4f801d6..1000c24752 100644
--- a/basis/compiler/cfg/critical-edges/critical-edges.factor
+++ b/basis/compiler/cfg/critical-edges/critical-edges.factor
@@ -11,9 +11,11 @@ IN: compiler.cfg.critical-edges
     f <simple-block> insert-basic-block ;
 
 : split-critical-edges ( cfg -- )
-    [
+    dup [
         dup successors>> [
             2dup critical-edge?
             [ split-critical-edge ] [ 2drop ] if
         ] with each
-    ] each-basic-block ;
\ No newline at end of file
+    ] each-basic-block
+    cfg-changed
+    drop ;
\ No newline at end of file