From 4561cf76848f809b8a216dea1da919161bd4d228 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sat, 11 Aug 2012 10:40:41 -0700 Subject: [PATCH] Revert "math.functions: cleaner rect>." This reverts commit 5ecff652babcdcb92948fe6715adbc3e082bc1d9. --- 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 b94effa297..c21586f9cc 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 ) - [ complex boa ] unless-zero ; inline + dup 0 = [ drop ] [ complex boa ] if ; inline GENERIC: sqrt ( x -- y ) foldable