File tree Expand file tree Collapse file tree 1 file changed +12
-4
lines changed Expand file tree Collapse file tree 1 file changed +12
-4
lines changed Original file line number Diff line number Diff line change @@ -2872,16 +2872,24 @@ grammar P6 is STD {
2872
2872
2873
2873
token named_param {
2874
2874
:my $ * GOAL ::= ')' ;
2875
+ :dba ('named parameter' )
2875
2876
':'
2876
2877
[
2877
- | <name = .identifier > '(' <.ws >
2878
- [ <named_param > | <param_var > <.ws > ]
2879
- [ ')' || <.panic : "Unable to parse named parameter; couldn't find right parenthesis" > ]
2878
+ | <name = .identifier > '(' ~ ')' <named_param_term >
2880
2879
| <param_var (1 )>
2881
- | '\\' <name = .identifier > { $¢ . add_name( $ < name > . Str ); }
2880
+ | '\\' <defterm >
2882
2881
]
2883
2882
}
2884
2883
2884
+ token named_param_term {
2885
+ <.ws >
2886
+ [
2887
+ | <named_param >
2888
+ | <param_var >
2889
+ | '\\' <defterm >
2890
+ ] <.ws >
2891
+ }
2892
+
2885
2893
token param_var ($ named = 0 ) {
2886
2894
:dba ('formal parameter' )
2887
2895
[
You can’t perform that action at this time.
0 commit comments