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

compiler.tree.propgation.transforms: make bit? use integer>fixnum.

db4
John Benediktsson 2013-11-25 12:48:48 -08:00
parent fafeecb5fb
commit 9bb5e34762
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/tree/propagation/transforms/transforms.factor
View File

@ -318,7 +318,7 @@ M\ set intersects? [ intersects?-quot ] 1 define-partial-eval
: bit-quot ( #call -- quot/f ) : bit-quot ( #call -- quot/f )
in-d>> second value-info interval>> 0 fixnum-bits [a,b] interval-subset? in-d>> second value-info interval>> 0 fixnum-bits [a,b] interval-subset?
[ [ >fixnum ] dip fixnum-bit? ] f ? ; [ [ integer>fixnum ] dip fixnum-bit? ] f ? ;
\ bit? [ bit-quot ] "custom-inlining" set-word-prop \ bit? [ bit-quot ] "custom-inlining" set-word-prop