diff --git a/src/core/Grammar.pm b/src/core/Grammar.pm index f2b835d8027..a2d992c325d 100644 --- a/src/core/Grammar.pm +++ b/src/core/Grammar.pm @@ -15,7 +15,9 @@ class Grammar is Cursor { } } -our sub make($ast) { +our sub make (*@ast) { + my $ast = (sub { return |@ast })(); + Q:PIR { $P0 = find_dynamic_lex '$/' $P1 = find_lex '$ast'