Revert "math.functions: cleaner rect>."

This reverts commit 5ecff652babcdcb92948fe6715adbc3e082bc1d9.

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index b94effa2977ca4f5e181d5863570d22a53c51ca3..c21586f9cc636c908f1ebf1ca76dc3b96d949581 100644 (file)
--- 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