From 0bcff5d642074198209cd6e3e870b202d753f396 Mon Sep 17 00:00:00 2001
From: Alex Vondrak <ajvondrak@csupomona.edu>
Date: Tue, 5 Jul 2011 21:00:52 -0700
Subject: [PATCH] compiler.cfg.gvn.alien: use next-vreg on final iteration,
 which seems to fix a bug

---
 extra/compiler/cfg/gvn/alien/alien.factor | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/extra/compiler/cfg/gvn/alien/alien.factor b/extra/compiler/cfg/gvn/alien/alien.factor
index 0c6d31fb2e..5e4edfe305 100644
--- a/extra/compiler/cfg/gvn/alien/alien.factor
+++ b/extra/compiler/cfg/gvn/alien/alien.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors combinators combinators.short-circuit fry
-kernel make math sequences
+kernel make math namespaces sequences
 cpu.architecture
 compiler.cfg.hats
 compiler.cfg.utilities
@@ -46,7 +46,11 @@ M: ##box-displaced-alien rewrite
         }
         {
             ! [ dup [ ##box-displaced-alien? ] with-available-uses? ]
-            [ f ]
+            [
+                final-iteration? get [
+                    dup [ ##box-displaced-alien? ] with-available-uses?
+                ] [ f ] if
+            ]
             [ rewrite-unbox-displaced-alien ]
         }
         [ 2drop f ]