From bca3ddfae80c0be2df12e4de20a4d8e0642134c8 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 6 May 2013 10:41:21 -0700
Subject: [PATCH] math.extras: change moving-median to use <clumps>.

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

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index f0a35e7ee4..02a75982fc 100644
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -99,7 +99,7 @@ PRIVATE>
     [ 1 ] 2dip '[ dupd swap - _ * + dup ] map nip ;
 
 : moving-median ( u n -- v )
-    clump [ median ] map ;
+    <clumps> [ median ] map ;
 
 : moving-supremum ( u n -- v )
     <clumps> [ supremum ] map ;