Reduction spree in control

rakudo · Aug 9, 2018 · d168cef · d168cef
1 parent d9be6e1
commit d168cef
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/src/core/control.pm6 b/src/core/control.pm6
@@ -201,20 +201,20 @@ constant NaN = nqp::p6box_n(nqp::nan());
 # method, because then the return value is always HLLized :-(
 sub CLONE-HASH-DECONTAINERIZED(\hash) {
     nqp::stmts(
-      (my $clone := nqp::hash),
-      (my $iter  := nqp::iterator(nqp::getattr(hash,Map,'$!storage'))),
+      (my \clone := nqp::hash),
+      (my \iter  := nqp::iterator(nqp::getattr(hash,Map,'$!storage'))),
       nqp::while(
-        $iter,
-        nqp::bindkey($clone,
-          nqp::iterkey_s(nqp::shift($iter)),
+        iter,
+        nqp::bindkey(clone,
+          nqp::iterkey_s(nqp::shift(iter)),
           nqp::if(
-            nqp::defined(nqp::iterval($iter)),
-            nqp::decont(nqp::iterval($iter)).Str,
+            nqp::defined(nqp::iterval(iter)),
+            nqp::decont(nqp::iterval(iter)).Str,
             ''
           )
         )
       ),
-      $clone
+      clone
     )
 }