From ec6baefce3e1eed98cd95470fed68eeb3d604c86 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 10 Sep 2012 19:24:23 -0700
Subject: [PATCH] compiler.tree.cleanup: fix "-1 shift" tests.

---
 basis/compiler/tree/cleanup/cleanup-tests.factor | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/basis/compiler/tree/cleanup/cleanup-tests.factor b/basis/compiler/tree/cleanup/cleanup-tests.factor
index ef4aa1acfe..8e3609c838 100644
--- a/basis/compiler/tree/cleanup/cleanup-tests.factor
+++ b/basis/compiler/tree/cleanup/cleanup-tests.factor
@@ -322,11 +322,7 @@ cell-bits 32 = [
 ] unit-test
 
 [ t ] [
-    [ { fixnum } declare 10 [ -1 shift ] times ] \ shift inlined?
-] unit-test
-
-[ f ] [
-    [ { integer } declare 10 [ -1 shift ] times ] \ shift inlined?
+    [ 10 [ -1 shift ] times ] \ shift inlined?
 ] unit-test
 
 [ f ] [