From 19662c976b8ba0e0b0ba7c9c8d52da938826a81c Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 22 Apr 2013 16:34:00 -0700
Subject: [PATCH] math.extras: use fry for clarity.

---
 extra/math/extras/extras.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index 65142563de..b907f25583 100644
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -96,7 +96,7 @@ PRIVATE>
     <clumps> [ mean ] map ;
 
 : exponential-moving-average ( seq a -- newseq )
-    [ 1 ] 2dip [ [ dupd swap - ] dip * + dup ] curry map nip ;
+    [ 1 ] 2dip '[ dupd swap - _ * + dup ] map nip ;
 
 : moving-median ( u n -- v )
     clump [ median ] map ;
@@ -111,7 +111,7 @@ PRIVATE>
     <clumps> [ sum ] map ;
 
 : moving-count ( ... u n quot: ( ... elt -- ... ? ) -- ... v )
-    [ <clumps> ] [ [ count ] curry map ] bi* ; inline
+    [ <clumps> ] [ '[ _ count ] map ] bi* ; inline
 
 : nonzero ( seq -- seq' )
     [ zero? not ] filter ;