Probably temporary fix for R#3000

Somehow the empty outer () or [] is being included when it shouldn't. Instead of assuming some internal problem, just assume we're done.
rakudo · Jun 29, 2019 · c227693 · c227693
1 parent 2dc68c9
commit c227693
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -6631,8 +6631,8 @@ class Perl6::Actions is HLL::Actions does STDActions {
             }
             my $semi := 0;
             repeat until $semi >= $numsemis {
-                my $EXPR := $<semilist><statement>[$semi]<EXPR> //
-                    nqp::die("internal problem: parser did not give circumfix an EXPR");
+                my $EXPR := $<semilist><statement>[$semi]<EXPR> // last;
+#                    nqp::die("internal problem: parser did not give circumfix an () EXPR");
                 if $EXPR<colonpair> { # might start with a colonpair
                     my @fan := nqp::list($EXPR.ast);
                     migrate_colonpairs($/, @fan);
@@ -6880,8 +6880,8 @@ class Perl6::Actions is HLL::Actions does STDActions {
             }
             my $semi := 0;
             repeat until $semi >= $numsemis {
-                my $EXPR := $<semilist><statement>[$semi]<EXPR> //
-                    nqp::die("internal problem: parser did not give circumfix an EXPR");
+                my $EXPR := $<semilist><statement>[$semi]<EXPR> // last;
+#                    nqp::die("internal problem: parser did not give circumfix an [] EXPR");
                 if $EXPR<colonpair> { # might start with a colonpair
                     my @fan := nqp::list($EXPR.ast);
                     migrate_colonpairs($/, @fan);