Remove two more uses of .gimme(1)

Compiles, but does not cause more spectest passes
rakudo · Aug 19, 2015 · e9911c0 · e9911c0
1 parent 2f5c4ed
commit e9911c0
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -147,14 +147,15 @@ multi sub METAOP_REDUCE_RIGHT(\op, \triangle) {
     my $ :=
 #?endif
     sub (*@values) {
-        my $list := @values.reverse;
-        return () unless $list.gimme(1);
+        my \list = @values.reverse;
+        my $result := list.pull-one;
+        return () if $result =:= IterationEnd;
 
         gather {
-            my $result := $list.shift;
             take $result;
-            take ($result := op.($list.shift, $result))
-              while $list.gimme(1);
+            while (my $elem = list.pull-one) !=:= IterationEnd {
+                take $result := op.($elem, $result)
+            }
         }
     }
 }