Fixed problem with range

diff --git a/contrib/math/statistics.factor b/contrib/math/statistics.factor
index 7b21cd8eafc2897da52caaa3582facc6369a75d3..78582b201c6da8661105c367f9ed845cf59c0826 100644 (file)
--- a/contrib/math/statistics.factor
+++ b/contrib/math/statistics.factor
@@ -19,7 +19,7 @@ USING: kernel math sequences ;
 
 : range ( seq -- n )
     #! max - min
-    number-sort [ pop ] keep first - ;
+    number-sort [ first ] keep pop swap - ;
 
 : var ( seq -- )
     #! variance, normalize by N-1