Add missing first value in triangle reduce

rakudo · Aug 20, 2015 · 83a29ca · 83a29ca
1 parent 2c088cc
commit 83a29ca
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -112,6 +112,7 @@ multi sub METAOP_REDUCE_LEFT(\op, \triangle) {
 
         my $result := first;
         GATHER({
+            take first;
             until (my \value = source.pull-one) =:= IterationEnd {
                 take ($result := op.($result, value));
             }