From 90632359942ed38ec67efc5f393d9b133e7a0ebf Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 22 Jun 2012 08:38:34 -0700 Subject: [PATCH] math.functions: minor cleanup. --- basis/math/functions/functions.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor index 8e47a9b45f..c21586f9cc 100644 --- a/basis/math/functions/functions.factor +++ b/basis/math/functions/functions.factor @@ -349,7 +349,7 @@ M: real atan >float atan ; inline : floor ( x -- y ) dup 1 mod - [ ] [ dup 0 < [ - 1 - ] [ - ] if ] if-zero ; foldable + [ dup 0 < [ - 1 - ] [ - ] if ] unless-zero ; foldable : ceiling ( x -- y ) neg floor neg ; foldable @@ -373,7 +373,7 @@ M: complex signum dup abs / ; MATH: copysign ( x y -- x' ) -M: real copysign [ >float ] bi@ copysign ; +M: real copysign >float copysign ; M: float copysign [ double>bits ] [ fp-sign ] bi*