derived-ops for shift didn't include fixnum-shift
parent
0e91763333
commit
1361bb7d5c
|
@ -11,6 +11,8 @@ tools.test math kernel sequences ;
|
||||||
[ f ] [ \ number= fixnum object math-both-known? ] unit-test
|
[ f ] [ \ number= fixnum object math-both-known? ] unit-test
|
||||||
[ t ] [ \ number= integer fixnum math-both-known? ] unit-test
|
[ t ] [ \ number= integer fixnum math-both-known? ] unit-test
|
||||||
[ f ] [ \ >fixnum \ shift derived-ops memq? ] unit-test
|
[ f ] [ \ >fixnum \ shift derived-ops memq? ] unit-test
|
||||||
|
[ f ] [ \ >integer \ /i derived-ops memq? ] unit-test
|
||||||
|
[ t ] [ \ fixnum-shift \ shift derived-ops memq? ] unit-test
|
||||||
|
|
||||||
[ { integer fixnum } ] [ \ +-integer-fixnum integer-op-input-classes ] unit-test
|
[ { integer fixnum } ] [ \ +-integer-fixnum integer-op-input-classes ] unit-test
|
||||||
[ { fixnum fixnum } ] [ \ fixnum+ integer-op-input-classes ] unit-test
|
[ { fixnum fixnum } ] [ \ fixnum+ integer-op-input-classes ] unit-test
|
||||||
|
@ -24,4 +26,3 @@ tools.test math kernel sequences ;
|
||||||
[ fixnum-bitnot ] [ \ bitnot modular-variant ] unit-test
|
[ fixnum-bitnot ] [ \ bitnot modular-variant ] unit-test
|
||||||
[ fixnum+fast ] [ \ fixnum+ modular-variant ] unit-test
|
[ fixnum+fast ] [ \ fixnum+ modular-variant ] unit-test
|
||||||
[ fixnum+fast ] [ \ fixnum+fast modular-variant ] unit-test
|
[ fixnum+fast ] [ \ fixnum+fast modular-variant ] unit-test
|
||||||
|
|
||||||
|
|
|
@ -152,7 +152,7 @@ SYMBOL: fast-math-ops
|
||||||
: integer-derived-ops ( word -- words )
|
: integer-derived-ops ( word -- words )
|
||||||
[ math-ops get (derived-ops) ] [ fast-math-ops get (derived-ops) ] bi
|
[ math-ops get (derived-ops) ] [ fast-math-ops get (derived-ops) ] bi
|
||||||
[
|
[
|
||||||
[
|
[
|
||||||
drop
|
drop
|
||||||
[ second integer class<= ]
|
[ second integer class<= ]
|
||||||
[ third integer class<= ]
|
[ third integer class<= ]
|
||||||
|
@ -174,7 +174,6 @@ SYMBOL: fast-math-ops
|
||||||
\ + define-math-ops
|
\ + define-math-ops
|
||||||
\ - define-math-ops
|
\ - define-math-ops
|
||||||
\ * define-math-ops
|
\ * define-math-ops
|
||||||
\ shift define-math-ops
|
|
||||||
\ mod define-math-ops
|
\ mod define-math-ops
|
||||||
\ /i define-math-ops
|
\ /i define-math-ops
|
||||||
|
|
||||||
|
@ -188,6 +187,9 @@ SYMBOL: fast-math-ops
|
||||||
\ >= define-math-ops
|
\ >= define-math-ops
|
||||||
\ number= define-math-ops
|
\ number= define-math-ops
|
||||||
|
|
||||||
|
{ { shift bignum bignum } bignum-shift } ,
|
||||||
|
{ { shift fixnum fixnum } fixnum-shift } ,
|
||||||
|
|
||||||
\ + \ fixnum+ \ bignum+ define-integer-ops
|
\ + \ fixnum+ \ bignum+ define-integer-ops
|
||||||
\ - \ fixnum- \ bignum- define-integer-ops
|
\ - \ fixnum- \ bignum- define-integer-ops
|
||||||
\ * \ fixnum* \ bignum* define-integer-ops
|
\ * \ fixnum* \ bignum* define-integer-ops
|
||||||
|
|
Loading…
Reference in New Issue