math.statistics: use if-zero in mean-ddof.

2014-06-10 13:06:42 -07:00 · 2014-06-10 13:06:42 -07:00 · 8a2028d2c6
parent 7b44637177
commit 8a2028d2c6
1 changed files with 1 additions and 1 deletions
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@ -12,7 +12,7 @@ IN: math.statistics
 ! Delta in degrees-of-freedom
 : mean-ddof ( seq ddof -- x )
    [ [ sum ] [ length ] bi ] dip -
-    dup zero? [ 2drop 0 ] [ / ] if ; inline
+    [ drop 0 ] [ / ] if-zero ; inline

 : mean ( seq -- x )
    0 mean-ddof ; inline