math.extras: change to <clumps> to match other moving- words.

2013-05-02 16:50:30 -07:00 · 2013-05-02 16:50:30 -07:00 · 0dc6240d4d
parent 1a762e5ac5
commit 0dc6240d4d
1 changed files with 1 additions and 1 deletions
--- 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 ;