Permalink
Browse files

Fix typed hash iteration.

  • Loading branch information...
1 parent 7f05613 commit d02067f5a58c7f0234bb4df75c10f864d4c93980 @jnthn jnthn committed Jun 22, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/core/Hash.pm
View
@@ -254,8 +254,8 @@ my class Hash {
my Mu $key;
while $iter {
$pair := nqp::shift($iter);
- $key := nqp::atkey(nqp::getattr(self, $?CLASS, '$!keys'), $pair.key);
- take Pair.new(:key($key), :value($pair.value));
+ $key := nqp::atkey(nqp::getattr(self, $?CLASS, '$!keys'), nqp::iterkey_s($pair));
+ take Pair.new(:key($key), :value(nqp::iterval($pair)));
}
Nil
}

0 comments on commit d02067f

Please sign in to comment.