Get arglist thunk to run and return something.

rakudo · May 6, 2012 · 5162c8b · 5162c8b
1 parent ba1f23a
commit 5162c8b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)();
                     }
 
                 }