Make %hash.pairs .value writable

Fixes RT #124640
rakudo · Sep 19, 2015 · 0f699bb · 0f699bb
1 parent 0e0495e
commit 0f699bb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -467,7 +467,7 @@ my class Hash { # declared in BOOTSTRAP
                 method pull-one() {
                     if $!hash-iter {
                         my \tmp = nqp::shift($!hash-iter);
-                        Pair.new(key => nqp::iterval(tmp), value => nqp::atkey($!storage, nqp::iterkey_s(tmp)));
+                        Pair.new(nqp::iterval(tmp), nqp::atkey($!storage, nqp::iterkey_s(tmp)));
                     }
                     else {
                         IterationEnd

diff --git a/src/core/Map.pm b/src/core/Map.pm
@@ -74,7 +74,7 @@ my class Map does Iterable does Associative { # declared in BOOTSTRAP
             method pull-one() {
                 if $!hash-iter {
                     my \tmp = nqp::shift($!hash-iter);
-                    Pair.new(key => nqp::iterkey_s(tmp), value => nqp::iterval(tmp))
+                    Pair.new(nqp::iterkey_s(tmp), nqp::iterval(tmp))
                 }
                 else {
                     IterationEnd