use native int iterator variable in Array.REIFY

rakudo · Apr 22, 2012 · 80f140f · 80f140f
1 parent a527e09
commit 80f140f
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/core/Array.pm b/src/core/Array.pm
@@ -75,9 +75,10 @@ class Array {
     method REIFY(Parcel \$parcel) {
         my Mu $rpa := nqp::getattr($parcel, Parcel, '$!storage');
         my Mu $iter := nqp::iterator($rpa);
-        my $i = 0;
+        my int $i = 0;
         while $iter {
-            nqp::bindpos($rpa, nqp::unbox_i($i++), my $v = nqp::shift($iter));
+            nqp::bindpos($rpa, $i, my $v = nqp::shift($iter));
+            $i = $i + 1;
         }
         pir::find_method__PPs(List, 'REIFY')(self, $parcel)
     }