Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Remove Hash.(classify|categorize), as it is no longer specced

  • Loading branch information...
commit 4a608a700f0f10a914e5bcb25071be00f34b7cf2 1 parent 92a2b85
@lizmat lizmat authored
Showing with 14 additions and 14 deletions.
  1. +4 −4 src/core/Any.pm
  2. +8 −8 src/core/Hash.pm
  3. +2 −2 src/core/List.pm
View
8 src/core/Any.pm
@@ -35,8 +35,8 @@ my class Any {
# derived from .list
method elems() { self.list.elems }
method end() { self.list.end }
- method classify($test) { {}.classify( $test, self.list ) }
- method categorize($test) { {}.categorize( $test, self.list ) }
+ method classify($test) { {}.classify_list( $test, self.list ) }
+ method categorize($test) { {}.categorize_list( $test, self.list ) }
method uniq() { self.list.uniq }
method squish() { self.list.squish }
method pick($n = 1) { self.list.pick($n) }
@@ -806,10 +806,10 @@ proto end(|) { * }
multi end($a) { $a.end }
proto classify(|) { * }
-multi classify( $test, *@items ) { {}.classify( $test, @items ) }
+multi classify( $test, *@items ) { {}.classify_list( $test, @items ) }
proto categorize(|) { * }
-multi categorize( $test, *@items ) { {}.categorize( $test, @items ) }
+multi categorize( $test, *@items ) { {}.categorize_list( $test, @items ) }
proto uniq(|) { * }
multi uniq(*@values) { @values.uniq }
View
16 src/core/Hash.pm
@@ -106,8 +106,8 @@ my class Hash { # declared in BOOTSTRAP
self
}
- proto method classify(|) { * }
- multi method classify( &test, *@list ) {
+ proto method classify_list(|) { * }
+ multi method classify_list( &test, *@list ) {
fail 'Cannot .classify an infinite list' if @list.infinite;
if @list {
@@ -132,7 +132,7 @@ my class Hash { # declared in BOOTSTRAP
}
self;
}
- multi method classify( %test, *@list ) {
+ multi method classify_list( %test, *@list ) {
fail 'Cannot .classify an infinite list' if @list.infinite;
if @list {
@@ -157,7 +157,7 @@ my class Hash { # declared in BOOTSTRAP
}
self;
}
- multi method classify( @test, *@list ) {
+ multi method classify_list( @test, *@list ) {
fail 'Cannot .classify an infinite list' if @list.infinite;
if @list {
@@ -183,8 +183,8 @@ my class Hash { # declared in BOOTSTRAP
self;
}
- proto method categorize(|) { * }
- multi method categorize( &test, *@list ) {
+ proto method categorize_list(|) { * }
+ multi method categorize_list( &test, *@list ) {
fail 'Cannot .categorize an infinite list' if @list.infinite;
if @list {
@@ -214,7 +214,7 @@ my class Hash { # declared in BOOTSTRAP
}
self;
}
- multi method categorize( %test, *@list ) {
+ multi method categorize_list( %test, *@list ) {
fail 'Cannot .categorize an infinite list' if @list.infinite;
if @list {
@@ -244,7 +244,7 @@ my class Hash { # declared in BOOTSTRAP
}
self;
}
- multi method categorize( @test, *@list ) {
+ multi method categorize_list( @test, *@list ) {
fail 'Cannot .categorize an infinite list' if @list.infinite;
if @list {
View
4 src/core/List.pm
@@ -375,9 +375,9 @@ my class List does Positional { # declared in BOOTSTRAP
$tpos >= +$tseq;
}
- method classify ($test) { {}.classify( $test, @.list ) }
+ method classify ($test) { {}.classify_list( $test, @.list ) }
- method categorize ($test) { {}.categorize( $test, @.list ) }
+ method categorize ($test) { {}.categorize_list( $test, @.list ) }
# This needs a way of taking a user-defined comparison
# specifier, but AFAIK nothing has been spec'd yet.
Please sign in to comment.
Something went wrong with that request. Please try again.