Fix typed hash iteration.

rakudo · Jun 22, 2013 · d02067f · d02067f
1 parent 7f05613
commit d02067f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -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
             }