Skip to content

Instantly share code, notes, and snippets.

@jnthn
Created May 6, 2012 19:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jnthn/2623892 to your computer and use it in GitHub Desktop.
Save jnthn/2623892 to your computer and use it in GitHub Desktop.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index 19c6a30..b1a8182 100644
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -753,12 +753,12 @@ grammar Perl6::Grammar is HLL::Grammar {
[
|| <.spacey> <arglist>
{
- my $ast := $<arglist>.ast;
+ my $ast := $<arglist><EXPR>.ast;
if $ast<has_compile_time_value> {
$arglist := $ast<compile_time_value>;
}
else {
- $arglist := $*W.create_thunk($/, $<arglist>.ast)();
+ $arglist := $*W.create_thunk($/, $ast)();
}
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment