math.functions: cleaner rect>.

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index c21586f9cc636c908f1ebf1ca76dc3b96d949581..b94effa2977ca4f5e181d5863570d22a53c51ca3 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 )
-    dup 0 = [ drop ] [ complex boa ] if ; inline
+    [ complex boa ] unless-zero ; inline
 
 GENERIC: sqrt ( x -- y ) foldable