From 34432c5f181d474c69caa9ca59822cc1280651ca Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.local>
Date: Wed, 29 Jul 2009 06:39:54 -0500
Subject: [PATCH] compiler: fix test

---
 basis/compiler/tests/low-level-ir.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/tests/low-level-ir.factor b/basis/compiler/tests/low-level-ir.factor
index 649a72cd20..eb8c0fbf98 100644
--- a/basis/compiler/tests/low-level-ir.factor
+++ b/basis/compiler/tests/low-level-ir.factor
@@ -22,11 +22,11 @@ IN: compiler.tests.low-level-ir
         T{ ##inc-d f 1 }
         T{ ##replace f V int-regs 0 D 0 }
         T{ ##branch }
-    } append 1 test-bb
+    } [ clone ] map append 1 test-bb
     V{
         T{ ##epilogue }
         T{ ##return }
-    } 2 test-bb
+    } [ clone ] map 2 test-bb
     0 get 1 get 1vector >>successors drop
     1 get 2 get 1vector >>successors drop
     compile-test-cfg