From bd8cc0a5f1dab3f773f4d5bc23b9834f38695392 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 6 May 2013 08:38:07 -0700
Subject: [PATCH] Revert "math.extras: change to <clumps> to match other
 moving- words."

This reverts commit 4c3d15e01a89a3383e77192ebcf969c2a17e7aa8.
---
 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 02a75982fc..f0a35e7ee4 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 )
-    <clumps> [ median ] map ;
+    clump [ median ] map ;
 
 : moving-supremum ( u n -- v )
     <clumps> [ supremum ] map ;