From 0178117d6c8ce237bacc41db8fdd664428bef543 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 10 Aug 2012 15:51:11 -0700 Subject: [PATCH] math.functions: cleaner rect>. --- basis/math/functions/functions.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor index c21586f9cc..b94effa297 100644 --- a/basis/math/functions/functions.factor +++ b/basis/math/functions/functions.factor @@ -8,7 +8,7 @@ IN: math.functions [ numerator ] [ denominator ] bi ; inline : rect> ( x y -- z ) - dup 0 = [ drop ] [ complex boa ] if ; inline + [ complex boa ] unless-zero ; inline GENERIC: sqrt ( x -- y ) foldable