Permalink
Browse files

[EnumMap] return Perl 6 strings as keys

  • Loading branch information...
moritz committed Mar 28, 2011
1 parent c8745bc commit 405afa981857f7aeef7bcebe83a79ae4d934d1da
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/core/EnumMap.pm
View
@@ -83,7 +83,7 @@ class EnumMap is Iterable does Associative {
my $iter = pir::iter__PP($!storage);
while pir::istrue__IP($iter) {
my $iter_item = pir::shift__PP($iter);
- take Pair.new(key => $iter_item.key, value => $iter_item.value);
+ take Pair.new(key => ~$iter_item.key, value => $iter_item.value);
}
}
}

0 comments on commit 405afa9

Please sign in to comment.