From 0dc6240d4d5cf47ec0f23905bdba65e21b324a7d Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 2 May 2013 16:50:30 -0700
Subject: [PATCH] math.extras: change to <clumps> to match other moving- words.

---
 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 ;