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

compiler.tree.propagation: fix tests for bit? inlining.

db4
John Benediktsson 2015-06-17 20:52:05 -07:00
parent 7dfe023854
commit 16abe47b03
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/tree/propagation/propagation-tests.factor
View File

@ -967,8 +967,8 @@ M: tuple-with-read-only-slot clone
[ 1 ] [ [ 4 <reversed> [ nth-unsafe ] [ ] unless ] final-info length ] unit-test
! Optimization on bit?
[ t ] [ [ 3 bit? ] { bit? fixnum-bit? } inlined? ] unit-test
[ f ] [ [ 500 bit? ] { bit? fixnum-bit? } inlined? ] unit-test
[ t ] [ [ 3 bit? ] { bit? } inlined? ] unit-test
[ f ] [ [ 500 bit? ] { bit? } inlined? ] unit-test
[ t ] [ [ { 1 } intersect ] { intersect } inlined? ] unit-test
[ f ] [ [ { 1 } swap intersect ] { intersect } inlined? ] unit-test ! We could do this