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 · 6710a94d19
parent 5aef9ef873
commit 6710a94d19
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