steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
basis/compiler/tree/cleanup

6
basis/compiler/tree/cleanup/cleanup-tests.factor
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 ] [