]> gitweb.factorcode.org Git - factor.git/commitdiff
compiler.tree.cleanup: fix "-1 shift" tests.
authorJohn Benediktsson <mrjbq7@gmail.com>
Tue, 11 Sep 2012 02:24:23 +0000 (19:24 -0700)
committerJohn Benediktsson <mrjbq7@gmail.com>
Tue, 11 Sep 2012 02:24:23 +0000 (19:24 -0700)
basis/compiler/tree/cleanup/cleanup-tests.factor

index ef4aa1acfe36f64b8a67f7a7de580fd3e271b980..8e3609c838ab4dd95c99d99832306b5591da4a22 100644 (file)
@@ -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 ] [