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

math.functions: rename 'bignum-log-helper'.

db4
John Benediktsson 2011-09-22 12:38:33 -07:00
parent 820b54d0f7
commit aa880f46ca
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/math/functions/functions.factor
View File

@ -191,18 +191,18 @@ M: complex log >polar [ flog ] dip rect> ; inline
CONSTANT: most-negative-finite-float $[ -1/0. next-float >integer ] CONSTANT: most-negative-finite-float $[ -1/0. next-float >integer ]
CONSTANT: most-positive-finite-float $[ 1/0. prev-float >integer ] CONSTANT: most-positive-finite-float $[ 1/0. prev-float >integer ]
MACRO: bignum-loghelper ( quot: ( x -- y ) -- quot ) MACRO: bignum-log ( quot: ( x -- y ) -- quot )
dup 2 over call( x -- y ) '[ dup dup '[
dup dup
most-negative-finite-float most-negative-finite-float
most-positive-finite-float most-positive-finite-float
between? between?
[ >float @ ] [ frexp [ @ ] [ _ * ] bi* + ] if [ >float @ ] [ frexp [ @ ] [ 2 @ * ] bi* + ] if
] ; ] ;
PRIVATE> PRIVATE>
M: bignum log [ log ] bignum-loghelper ; M: bignum log [ log ] bignum-log ;
GENERIC: log1+ ( x -- y ) GENERIC: log1+ ( x -- y )
@ -218,7 +218,7 @@ M: real log10 >float flog10 ; inline
M: complex log10 log 10 log / ; inline M: complex log10 log 10 log / ; inline
M: bignum log10 [ log10 ] bignum-loghelper ; M: bignum log10 [ log10 ] bignum-log ;
GENERIC: cos ( x -- y ) foldable GENERIC: cos ( x -- y ) foldable