math.extras: change moving-median to use <clumps>.

2013-05-06 10:41:21 -07:00 · 2013-05-06 10:41:21 -07:00 · bca3ddfae8
parent 720db54f61
commit bca3ddfae8
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 ;