math.statistics: [-] Golfed.

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index 320819bd9a884dde833a7c6305e45fd8631e4dbe..8ef53dad556b1b0336b2aefb941402b9726f1129 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -158,7 +158,7 @@ PRIVATE>
 ! could subtract 1 from a
 
 : quantile-x ( a b N q -- x )
-    [ + ] dip * + 1 - 0 max ; inline
+    [ + ] dip * + 1 [-] ; inline
 
 ! 2+1/4 frac is 1/4
 : frac ( x -- x' )