Skip to content
Permalink
Browse files

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.
  • Loading branch information...
lizmat committed Jun 29, 2019
1 parent 2dc68c9 commit c227693a660200cd2bda42dd28a3946a7d812b01
Showing with 4 additions and 4 deletions.
  1. +4 −4 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);

0 comments on commit c227693

Please sign in to comment.
You can’t perform that action at this time.