Use new "samewith" functionality in (classify|categorize)-list

rakudo · Aug 7, 2013 · 93ca160 · 93ca160
1 parent 3ba7f55
commit 93ca160
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -133,10 +133,10 @@ my class Hash { # declared in BOOTSTRAP
         self;
     }
     multi method classify-list( %test, *@list ) {
-        self.classify-list( { %test{$^a} }, @list );
+        samewith( { %test{$^a} }, @list );
     }
     multi method classify-list( @test, *@list ) {
-        self.classify-list( { @test[$^a] }, @list );
+        samewith( { @test[$^a] }, @list );
     }
 
     proto method categorize-list(|) { * }
@@ -171,10 +171,10 @@ my class Hash { # declared in BOOTSTRAP
         self;
     }
     multi method categorize-list( %test, *@list ) {
-        self.categorize-list( { %test{$^a} }, @list );
+        samewith( { %test{$^a} }, @list );
     }
     multi method categorize-list( @test, *@list ) {
-        self.categorize-list( { @test[$^a] }, @list );
+        samewith( { @test[$^a] }, @list );
     }
 
     # push a value onto a hash slot, constructing an array if necessary

diff --git a/src/core/KeyBag.pm b/src/core/KeyBag.pm
@@ -112,10 +112,10 @@ my class KeyBag does Associative does Baggy {
         self;
     }
     multi method classify-list( %test, *@list ) {
-        self.classify-list( { %test{$^a} }, @list );
+        samewith( { %test{$^a} }, @list );
     }
     multi method classify-list( @test, *@list ) {
-        self.classify-list( { @test[$^a] }, @list );
+        samewith( { @test[$^a] }, @list );
     }
 
     proto method categorize-list(|) { * }
@@ -146,10 +146,10 @@ my class KeyBag does Associative does Baggy {
         self;
     }
     multi method categorize-list( %test, *@list ) {
-        self.categorize-list( { %test{$^a} }, @list );
+        samewith( { %test{$^a} }, @list );
     }
     multi method categorize-list( @test, *@list ) {
-        self.categorize-list( { @test[$^a] }, @list );
+        samewith( { @test[$^a] }, @list );
     }
 }