Add a push-all method to Supply's iterator

rakudo · Apr 15, 2020 · e78483e · e78483e
1 parent dc7a796
commit e78483e
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/src/core.c/Supply-coercers.pm6 b/src/core.c/Supply-coercers.pm6
@@ -41,14 +41,24 @@
             nqp::stmts(
               (my $got := nqp::shift($!queue)),
               nqp::if(
-                nqp::eqaddr($got, ConcQueue),
+                nqp::eqaddr($got,ConcQueue),
                 nqp::if(
                   nqp::isconcrete($!exception),
                   $!exception.throw,
                   IterationEnd),
                 $got))
         }
 
+        method push-all(\target --> IterationEnd) {
+            nqp::stmts(
+              nqp::while(
+                nqp::not_i(nqp::eqaddr((my $got := nqp::shift($!queue)),ConcQueue)),
+                target.push($got)),
+              nqp::if(
+                nqp::isconcrete($!exception),
+                $!exception.throw))
+        }
+
         # method is-lazy(--> Bool:D) { ... }
     }