Permalink
Browse files

<statementlist>, not <EXPR>

Much better. moritz++

    $ ./perl6 -e 'say "OH HAI"; my $a; {{{say "woot!"; $a}}}'
    OH HAI
    woot!

    $ ./perl6 -e 'say "OH HAI"; my $a; quasi { say "woo!"; {{{$a}}} }'
    OH HAI
  • Loading branch information...
1 parent 1b9b70b commit 30c0302b747a553b7f97191919930c06effe3575 @masak masak committed Jul 28, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Perl6/Grammar.pm
@@ -937,7 +937,7 @@ grammar Perl6::Grammar is HLL::Grammar {
token term:sym<lambda> { <?lambda> <pblock> }
token term:sym<type_declarator> { <type_declarator> }
token term:sym<value> { <value> }
- token term:sym<unquote> { '{{{' <?{ $*IN_QUASI }> <EXPR> '}}}' }
+ token term:sym<unquote> { '{{{' <?{ $*IN_QUASI }> <statementlist> '}}}' }
# XXX temporary Bool::True/Bool::False until we can get a permanent definition
token term:sym<boolean> { 'Bool::'? $<value>=[True|False] » }

0 comments on commit 30c0302

Please sign in to comment.