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

generic.math: eliminate a redundant fixnum check, separate out the fixnum dispatch hack.

db4
John Benediktsson 2013-09-06 13:50:00 -07:00
parent 0948479743
commit 77b5aaa62c
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
core/generic/math/math.factor
View File

@ -97,6 +97,14 @@ SYMBOL: generic-word
[ [ { ratio complex } ] dip make-math-method-table tuple-dispatch ] 2bi [ [ { ratio complex } ] dip make-math-method-table tuple-dispatch ] 2bi
tuple swap 2array prefix tag-dispatch ; inline tuple swap 2array prefix tag-dispatch ; inline
: fixnum-dispatch ( word quot -- word quot' )
[ dup fixnum bootstrap-word dup math-method ]
[
dup length 3 - cut unclip
[ length 2 - ] [ nth ] bi prefix append
] bi*
[ if ] 2curry [ 2dup both-fixnums? ] prepend ;
PRIVATE> PRIVATE>
SINGLETON: math-combination SINGLETON: math-combination
@ -106,18 +114,14 @@ M: math-combination make-default-method
M: math-combination perform-combination M: math-combination perform-combination
drop dup generic-word [ drop dup generic-word [
dup dup [ over ] [
[ fixnum bootstrap-word dup math-method ] dup math-class? [
[ [ dup ] [ math-method ] with with math-dispatch-step
[ over ] [ ] [
dup math-class? [ drop object-method
[ dup ] [ math-method ] with with math-dispatch-step ] if
] [ ] with math-dispatch-step
drop object-method fixnum-dispatch
] if
] with math-dispatch-step
] bi
[ if ] 2curry [ 2dup both-fixnums? ] prepend
define define
] with-variable ; ] with-variable ;