compiler.tree.cleanup: fix "-1 shift" tests.

db4
John Benediktsson 2012-09-10 19:24:23 -07:00
parent a4f264509d
commit ec6baefce3
1 changed files with 1 additions and 5 deletions

View 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 ] [