Revert "math.functions: cleaner rect>."

This reverts commit 5ecff652ba.
2012-08-11 10:40:41 -07:00 · 2012-08-11 10:40:41 -07:00 · 4561cf7684
parent fd94838032
commit 4561cf7684
1 changed files with 1 additions and 1 deletions
--- 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