Median uses /i now instead of /

diff --git a/contrib/math/statistics.factor b/contrib/math/statistics.factor
index ac52361941c84b742fe5cf443e661f8d3c139e2b..9c9639f9e2266d735a3cf6640a264a9a4212c7ec 100644 (file)
--- a/contrib/math/statistics.factor
+++ b/contrib/math/statistics.factor
@@ -18,7 +18,7 @@ USING: kernel math sequences ;
     number-sort dup length dup even? [
         1+ 2 /i dup 1- rot [ nth ] keep swapd nth + 2 /
     ] [
-        2 / swap nth
+        2 /i swap nth
     ] if ;
 
 : range ( seq -- n )
@@ -36,4 +36,3 @@ USING: kernel math sequences ;
 : std
     #! standard deviation, sqrt of variance
     var sqrt ;
-