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

compiler.tree: teaching it bignum>fixnum-strict.

db4
John Benediktsson 2014-06-08 13:40:38 -07:00
parent 8303d6aacf
commit b573c40402
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/tree/modular-arithmetic/modular-arithmetic.factor
View File

@ -39,7 +39,9 @@ IN: compiler.tree.modular-arithmetic
! is a modular arithmetic word, then the input can be converted into ! is a modular arithmetic word, then the input can be converted into
! a form that is cheaper to compute. ! a form that is cheaper to compute.
{ {
>fixnum bignum>fixnum integer>fixnum integer>fixnum-strict >fixnum
bignum>fixnum bignum>fixnum-strict
integer>fixnum integer>fixnum-strict
float>fixnum float>fixnum
set-alien-unsigned-1 set-alien-signed-1 set-alien-unsigned-1 set-alien-signed-1
set-alien-unsigned-2 set-alien-signed-2 set-alien-unsigned-2 set-alien-signed-2

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

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