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

math.functions: add forgotten imports and fix between? check.

db4
John Benediktsson 2011-09-22 10:00:22 -07:00
parent 077ef8ed5b
commit 7f4604318a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: math kernel math.constants math.private math.bits USING: math kernel math.constants math.private math.bits
math.libm combinators fry math.order sequences math.libm combinators fry math.order sequences
combinators.short-circuit math.bitwise ; combinators.short-circuit macros literals math.bitwise ;
IN: math.functions IN: math.functions
: >fraction ( a/b -- a b ) : >fraction ( a/b -- a b )
@ -183,14 +183,14 @@ M: complex log >polar [ flog ] dip rect> ; inline
<PRIVATE <PRIVATE
CONSTANT: most-positive-finite-float $[ 1/0. prev-float >integer ]
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 ]
MACRO: bignum-loghelper ( quot: ( x -- y ) -- quot ) MACRO: bignum-loghelper ( quot: ( x -- y ) -- quot )
dup 2 over call( x -- y ) '[ dup 2 over call( x -- y ) '[
dup dup
most-positive-finite-float
most-negative-finite-float most-negative-finite-float
most-positive-finite-float
between? between?
[ >float @ ] [ frexp [ @ ] [ _ * ] bi* + ] if [ >float @ ] [ frexp [ @ ] [ _ * ] bi* + ] if
] ; ] ;