sequences.extras: fix occurrence-count-by rename

diff --git a/extra/sequences/extras/extras-tests.factor b/extra/sequences/extras/extras-tests.factor
index 86eaf1a80e40fe2b6750182060fffea5bc9c7136..4e1b7fd28869f94653fd656daca343a8bc5f2bca 100644 (file)
--- a/extra/sequences/extras/extras-tests.factor
+++ b/extra/sequences/extras/extras-tests.factor
@@ -308,21 +308,14 @@ strings tools.test ;
     H{ { t 6 } { f 5 } }
     { 0 0 1 1 2 3 4 2 3 4 5 }
 } [
-    { 2 7 1 8 1 7 1 8 2 8 4 } [ even? ] occurrence-count
+    { 2 7 1 8 1 7 1 8 2 8 4 } [ even? ] occurrence-count-by
 ] unit-test
 
 {
     H{ { 8 3 } { 1 3 } { 2 2 } { 4 1 } { 7 2 } }
     { 0 0 0 0 1 1 2 1 1 2 0 }
 } [
-    { 2 7 1 8 1 7 1 8 2 8 4 } occurrence-count
-] unit-test
-
-{
-    H{ { 8 3 } { 1 3 } { 2 2 } { 4 1 } { 7 2 } }
-    { 0 0 0 0 1 1 2 1 1 2 0 }
-} [
-    { 2 7 1 8 1 7 1 8 2 8 4 } [ ] occurrence-count
+    { 2 7 1 8 1 7 1 8 2 8 4 } [ ] occurrence-count-by
 ] unit-test
 
 {

diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 8ad6cd0ab923bda03348af32e9b40a3fe959a5a2..77a535100cfe37582b727e3d0ac2e1fcc4d8a91c 100644 (file)
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -295,7 +295,7 @@ PRIVATE>
 : 0accumulate ( ... seq quot: ( ... prev elt -- ... next ) -- ... final newseq )
     over 0accumulate-as ; inline
 
-: occurrence-count ( seq quot: ( elt -- elt' ) -- hash seq' )
+: occurrence-count-by ( seq quot: ( elt -- elt' ) -- hash seq' )
     '[ nip @ over inc-at* drop ] [ H{ } clone ] 2dip 0accumulate ; inline
 
 : nth-index ( n obj seq -- i )