fire FIRST phaser

rakudo · Aug 28, 2015 · 15b06d0 · 15b06d0
1 parent 0b76e79
commit 15b06d0
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/src/core/Any-iterable-methods.pm b/src/core/Any-iterable-methods.pm
@@ -87,10 +87,19 @@ augment class Any {
             # put that on a different code-path to keep the commonest
             # case fast.
             Seq.new(class :: does MapIterCommon {
+                has $!did-run;
+
                 method pull-one() is rw {
                     my int $redo = 1;
                     my $value;
                     my $result;
+
+                    unless $!did-run {
+                        nqp::p6setfirstflag(&!block)
+                          if (nqp::can(&!block, 'phasers') && &!block.phasers('FIRST'));
+                        $!did-run = 1;
+                    }
+
                     if $!slipping && ($result := self.slip-one()) !=:= IterationEnd {
                         $result
                     }
@@ -134,13 +143,21 @@ augment class Any {
         else {
             Seq.new(class :: does MapIterCommon {
                 has $!value-buffer;
+                has $!did-run;
 
                 method pull-one() is rw {
                     $!value-buffer.DEFINITE
                         ?? nqp::setelems($!value-buffer, 0)
                         !! ($!value-buffer := IterationBuffer.new);
                     my int $redo = 1;
                     my $result;
+
+                    unless $!did-run {
+                        nqp::p6setfirstflag(&!block)
+                          if (nqp::can(&!block, 'phasers') && &!block.phasers('FIRST'));
+                        $!did-run = 1;
+                    }
+
                     if $!slipping && ($result := self.slip-one()) !=:= IterationEnd {
                         $result
                     }