From 3c481192a0cabab4dac1c3bd248674bd18a5eee0 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 25 Mar 2016 09:42:09 -0700
Subject: [PATCH] sequences.extras: Fix bad rename. (each-from) ->
 setup-each-from now. Add a unit test for reduce-from.

---
 extra/sequences/extras/extras-tests.factor | 2 ++
 extra/sequences/extras/extras.factor       | 8 ++++----
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 29c9247ef0..b4c8038f24 100644
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -181,3 +181,5 @@ IN: sequences.extras.tests
 { { 0 3 } } [ "ABA" "ABAABA" start-all ] unit-test
 { 1 } [ "ABA" "ABABA" count-subseq ] unit-test
 { 2 } [ "ABA" "ABABA" count-subseq* ] unit-test
+
+{ 120000 } [ { 10 20 30 40 50 60 } 1 [ * ] 3 reduce-from ] unit-test
diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 1803155e92..eabf091b73 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -208,16 +208,16 @@ PRIVATE>
 
 <PRIVATE
 
-: (each-from) ( i seq -- n quot )
+: (setup-each-from) ( i seq -- n quot )
     [ length over [-] swap ] keep '[ _ + _ nth-unsafe ] ; inline
 
-: each-from ( i seq quot -- n quot' )
-    [ (each-from) ] dip compose ; inline
+: setup-each-from ( i seq quot -- n quot' )
+    [ (setup-each-from) ] dip compose ; inline
 
 PRIVATE>
 
 : map-from-as ( ... seq quot: ( ... elt -- ... newelt ) i exemplar -- ... newseq )
-    [ -rot each-from ] dip map-integers ; inline
+    [ -rot setup-each-from ] dip map-integers ; inline
 
 : map-from ( ... seq quot: ( ... elt -- ... newelt ) i -- ... newseq )
     pick map-from-as ; inline
-- 
2.34.1