From 7f4604318a98a261c638bdf297be41505c811816 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 22 Sep 2011 10:00:22 -0700 Subject: [PATCH] math.functions: add forgotten imports and fix between? check. --- basis/math/functions/functions.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor index 865997a34d..9a5bb2084b 100644 --- a/basis/math/functions/functions.factor +++ b/basis/math/functions/functions.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: math kernel math.constants math.private math.bits math.libm combinators fry math.order sequences -combinators.short-circuit math.bitwise ; +combinators.short-circuit macros literals math.bitwise ; IN: math.functions : >fraction ( a/b -- a b ) @@ -183,14 +183,14 @@ M: complex log >polar [ flog ] dip rect> ; inline 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 ) dup 2 over call( x -- y ) '[ dup - most-positive-finite-float most-negative-finite-float + most-positive-finite-float between? [ >float @ ] [ frexp [ @ ] [ _ * ] bi* + ] if ] ;