From d3df35102a0a8c97533f758445720b592c0b862f Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 17 Jun 2013 07:36:55 -0700
Subject: [PATCH] math.statistics: [-] Golfed.

---
 basis/math/statistics/statistics.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index 320819bd9a..8ef53dad55 100644
--- 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' )