sets.extras: rename duplicates-by to unique-by, hah.

diff --git a/extra/sets/extras/extras-tests.factor b/extra/sets/extras/extras-tests.factor
index 9458f4aecd28a7c2391781f33cb18b87d954632c..a33d88d231e563d1e3aedc04e1032a66a823f3e6 100644 (file)
--- a/extra/sets/extras/extras-tests.factor
+++ b/extra/sets/extras/extras-tests.factor
@@ -25,4 +25,4 @@ IN: sets.extras.tests
 
 { HS{ 0 10 20 30 40 } } [ 5 iota [ 10 * ] mapped-set ] unit-test
 
-{ { 1 2 4 } } [ { 1 2 3 4 5 } [ 2/ ] duplicates-by ] unit-test
+{ { 1 2 4 } } [ { 1 2 3 4 5 } [ 2/ ] unique-by ] unit-test

diff --git a/extra/sets/extras/extras.factor b/extra/sets/extras/extras.factor
index 5810cd3b17c7c9ef7ae5f0d96ed23a76a8c31b5b..542b5962a67a1177829d9d272a5df661e24a256a 100644 (file)
--- a/extra/sets/extras/extras.factor
+++ b/extra/sets/extras/extras.factor
@@ -35,5 +35,5 @@ IN: sets.extras
         '[ @ _ adjoin ] each
     ] keep ; inline
 
-: duplicates-by ( seq quot: ( elt -- key ) -- seq' )
+: unique-by ( seq quot: ( elt -- key ) -- seq' )
     over length <hash-set> '[ @ _ ?adjoin ] filter ; inline