Fix accidental double-nesting in gather/take hack.

Will go away once we get the real gather/take implementation done.
rakudo · Jan 3, 2014 · 1324a70 · 1324a70
1 parent f920930
commit 1324a70
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/core/GatherIter.pm b/src/core/GatherIter.pm
@@ -89,6 +89,12 @@ class GatherIter is Iterator {
                 nqp::push($rpa, $parcel) unless $end;
                 $count = $count - 1;
             }
+#?if moar
+            # Needed until we have proper thing-at-a-time gather/take.
+            if nqp::elems($rpa) {
+                $rpa := nqp::getattr(nqp::atpos($rpa, 0), Parcel, '$!storage');
+            }
+#?endif
             nqp::push($rpa, 
                 nqp::p6bindattrinvres(
                     nqp::p6bindattrinvres(