From 730f39ee236560a429fb0fe1337cd57a61f39701 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@trifocus.net>
Date: Mon, 31 Oct 2005 18:13:27 +0000
Subject: [PATCH] Median uses /i now instead of /

---
 contrib/math/statistics.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/contrib/math/statistics.factor b/contrib/math/statistics.factor
index ac52361941..9c9639f9e2 100644
--- 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 ;
-