From b97a1a0753cc40b719bc9fdc03065d05dd0e4671 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 8 Mar 2013 12:16:02 -0800
Subject: [PATCH] compiler: fix stack effects to indicate visited is same
 object.

---
 basis/compiler/cfg/rpo/rpo.factor             | 2 +-
 basis/compiler/cfg/utilities/utilities.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/cfg/rpo/rpo.factor b/basis/compiler/cfg/rpo/rpo.factor
index 09889c59d8..ec89853b7b 100644
--- a/basis/compiler/cfg/rpo/rpo.factor
+++ b/basis/compiler/cfg/rpo/rpo.factor
@@ -5,7 +5,7 @@ assocs fry compiler.cfg compiler.cfg.instructions ;
 FROM: namespaces => set ;
 IN: compiler.cfg.rpo
 
-: post-order-traversal ( visited bb -- visited' )
+: post-order-traversal ( visited bb -- visited )
     dup pick in? [ drop ] [
         dup pick adjoin
         [
diff --git a/basis/compiler/cfg/utilities/utilities.factor b/basis/compiler/cfg/utilities/utilities.factor
index 72bbcf4feb..9fdd771f61 100644
--- a/basis/compiler/cfg/utilities/utilities.factor
+++ b/basis/compiler/cfg/utilities/utilities.factor
@@ -18,7 +18,7 @@ IN: compiler.cfg.utilities
         [ first ##branch? ]
     } 1&& ;
 
-: (skip-empty-blocks) ( visited bb -- visited' bb' )
+: (skip-empty-blocks) ( visited bb -- visited bb' )
     dup pick in? [
         dup empty-block? [
             dup pick adjoin