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

compiler.tree.propagation: make sure integer>fixnum-strict infers a fixnum.

db4
John Benediktsson 2012-10-05 04:17:43 -07:00
parent 8e54a4ff15
commit 040b94f5ce
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/compiler/tree/propagation/known-words/known-words.factor
View File

@ -225,6 +225,7 @@ generic-comparison-ops [
{ >fixnum fixnum }
{ bignum>fixnum fixnum }
{ integer>fixnum fixnum }
{ integer>fixnum-strict fixnum }
{ >bignum bignum }
{ fixnum>bignum bignum }

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

@ -329,11 +329,7 @@ M\ set intersect [ intersect-quot ] 1 define-partial-eval
[ [ dup [ \ >fixnum no-method ] unless ] ] [ f ] if ;
! Speeds up fasta benchmark
\ >fixnum [
custom-inline-fixnum
] "custom-inlining" set-word-prop
{ integer>fixnum integer>fixnum-strict } [
{ >fixnum integer>fixnum integer>fixnum-strict } [
[ custom-inline-fixnum ] "custom-inlining" set-word-prop
] each