Fix triangle metaops on empty lists (TimToady++).

rakudo · Aug 3, 2011 · f72544a · f72544a
1 parent 120d3be
commit f72544a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -53,8 +53,8 @@ sub METAOP_REDUCE(\$op, :$triangle) {
     my $x :=
     sub (*@values) {
         if $triangle {
+            return () unless @values;
             GATHER({
-                return unless @values;
                 my $result := @values.shift;
                 take $result;
                 take ($result := $op($result, @values.shift))
@@ -77,8 +77,8 @@ sub METAOP_REDUCE_RIGHT(\$op, :$triangle) {
     sub (*@values) {
         my $list = @values.reverse;
         if $triangle {
+            return () unless $list;
             gather {
-                return unless $list;
                 my $result := $list.shift;
                 take $result;
                 take ($result := $op($list.shift, $result))