Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Remove Hash.(classify|categorize), as it is no longer specced
  • Loading branch information
lizmat committed Jul 31, 2013
1 parent 92a2b85 commit 4a608a7
Show file tree
Hide file tree
Showing 3 changed files with 14 additions and 14 deletions.
8 changes: 4 additions & 4 deletions src/core/Any.pm
Expand Up @@ -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) }
Expand Down Expand Up @@ -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 }
Expand Down
16 changes: 8 additions & 8 deletions src/core/Hash.pm
Expand Up @@ -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 {

Expand All @@ -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 {

Expand All @@ -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 {

Expand All @@ -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 {

Expand Down Expand Up @@ -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 {

Expand Down Expand Up @@ -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 {

Expand Down
4 changes: 2 additions & 2 deletions src/core/List.pm
Expand Up @@ -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.
Expand Down

0 comments on commit 4a608a7

Please sign in to comment.