Permalink
Browse files

allow unspace before args (e.g. in say\ ("foo"))

  • Loading branch information...
1 parent ebb29be commit 6b355be1a02149c734270f4475cc2760f80f5952 @timo timo committed Jul 16, 2013
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/Perl6/Grammar.nqp
View
@@ -2608,7 +2608,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
token term:sym<!!!> { <sym> <args> }
token term:sym<identifier> {
- <identifier> <!{ $*W.is_type([~$<identifier>]) }> <?[(]> <args>
+ <identifier> <!{ $*W.is_type([~$<identifier>]) }> <?before <.unsp>|'('> <args>
{ self.add_mystery($<identifier>, $<args>.from, nqp::substr(~$<args>, 0, 1)) }
}
@@ -2658,6 +2658,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
:dba('argument list')
[
| '(' ~ ')' <semiarglist>
+ | <.unsp> '(' ~ ')' <semiarglist>
| [ \s <arglist> ]
| <?>
]

0 comments on commit 6b355be

Please sign in to comment.