math.functions: cleaner rect>.

2012-08-10 15:51:11 -07:00 · 2012-08-10 15:51:11 -07:00 · 5ecff652ba
parent 527d6121e1
commit 5ecff652ba
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 )
-    dup 0 = [ drop ] [ complex boa ] if ; inline
+    [ complex boa ] unless-zero ; inline

 GENERIC: sqrt ( x -- y ) foldable