Skip to content
Browse files

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

…ixnum.
  • Loading branch information...
1 parent 4d49dcd commit 2bdb46f063e16ae483a172d9cc7dd6fa74316a3f @mrjbq7 mrjbq7 committed Oct 5, 2012
View
1 basis/compiler/tree/propagation/known-words/known-words.factor
@@ -225,6 +225,7 @@ generic-comparison-ops [
{ >fixnum fixnum }
{ bignum>fixnum fixnum }
{ integer>fixnum fixnum }
+ { integer>fixnum-strict fixnum }
{ >bignum bignum }
{ fixnum>bignum bignum }
View
6 basis/compiler/tree/propagation/transforms/transforms.factor
@@ -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

0 comments on commit 2bdb46f

Please sign in to comment.
Something went wrong with that request. Please try again.