From 8a2028d2c61a709345d35e520bab1936e9957482 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 10 Jun 2014 13:06:42 -0700
Subject: [PATCH] math.statistics: use if-zero in mean-ddof.

---
 basis/math/statistics/statistics.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index 950df958eb..5a618ea168 100644
--- 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