math.statistics: empty-sequence is silly.

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index c610e2a64514ac54d7279477c27c81633946e961..96868680ea07944bcf20d80ba7710d9869060ac9 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -240,14 +240,8 @@ PRIVATE>
     histogram >alist
     [ ] [ [ [ second ] bi@ > ] most ] map-reduce first ;
 
-ERROR: empty-sequence ;
-
 : minmax ( seq -- min max )
-    [
-        empty-sequence
-    ] [
-        [ first dup ] keep [ [ min ] [ max ] bi-curry bi* ] each
-    ] if-empty ;
+    [ first dup ] keep [ [ min ] [ max ] bi-curry bi* ] each ;
 
 : range ( seq -- x )
     minmax swap - ;