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

generic.math: rename and add comment.

db4
John Benediktsson 2013-09-06 18:21:38 -07:00
parent 77b5aaa62c
commit 0fcb485d80
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -97,9 +97,11 @@ 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' ) : fixnum-optimization ( word quot -- word quot' )
[ dup fixnum bootstrap-word dup math-method ] [ dup fixnum bootstrap-word dup math-method ]
[ [
! remove redundant fixnum check since we know
! both can't be fixnums in this branch
dup length 3 - cut unclip dup length 3 - cut unclip
[ length 2 - ] [ nth ] bi prefix append [ length 2 - ] [ nth ] bi prefix append
] bi* ] bi*
@ -121,7 +123,7 @@ M: math-combination perform-combination
drop object-method drop object-method
] if ] if
] with math-dispatch-step ] with math-dispatch-step
fixnum-dispatch fixnum-optimization
define define
] with-variable ; ] with-variable ;