generic.math: rename and add comment.
parent
77b5aaa62c
commit
0fcb485d80
|
@ -97,9 +97,11 @@ SYMBOL: generic-word
|
|||
[ [ { ratio complex } ] dip make-math-method-table tuple-dispatch ] 2bi
|
||||
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 ]
|
||||
[
|
||||
! remove redundant fixnum check since we know
|
||||
! both can't be fixnums in this branch
|
||||
dup length 3 - cut unclip
|
||||
[ length 2 - ] [ nth ] bi prefix append
|
||||
] bi*
|
||||
|
@ -121,7 +123,7 @@ M: math-combination perform-combination
|
|||
drop object-method
|
||||
] if
|
||||
] with math-dispatch-step
|
||||
fixnum-dispatch
|
||||
fixnum-optimization
|
||||
define
|
||||
] with-variable ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue