Ununderscore named_param

rakudo · Jun 11, 2023 · e015bfe · e015bfe
1 parent e0cefed
commit e015bfe
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/src/Raku/Actions.nqp b/src/Raku/Actions.nqp
@@ -2426,7 +2426,7 @@ class Raku::Actions is HLL::Actions does Raku::CommonActions {
 
     method parameter($/) {
         my $parameter := $<param-var>   ?? $<param-var>.ast   !!
-                         $<named_param> ?? $<named_param>.ast !!
+                         $<named-param> ?? $<named-param>.ast !!
                          $<param-term>  ?? $<param-term>.ast  !!
                          self.r('Parameter').new;
         my $capture := self.r('Type', 'Capture');
@@ -2523,12 +2523,12 @@ class Raku::Actions is HLL::Actions does Raku::CommonActions {
         }
     }
 
-    method named_param($/) {
+    method named-param($/) {
         my $parameter;
         if $<name> {
             # Explicitly specified name to attach.
-            if $<named_param> {
-                $parameter := $<named_param>.ast;
+            if $<named-param> {
+                $parameter := $<named-param>.ast;
             }
             else {
                 $parameter := $<param-var>.ast;

diff --git a/src/Raku/Grammar.nqp b/src/Raku/Grammar.nqp
@@ -2999,15 +2999,15 @@ grammar Raku::Grammar is HLL::Grammar does Raku::Common {
                 $/.panic('Obsolete use of | or \\ with sigil on param ' ~ $<param-var>);
             }
           | $<quant>=['\\'|'|'|'+'] <param-term>
-          | [ <param-var> | <named_param> ] $<quant>=['?'|'!'|<?>]
+          | [ <param-var> | <named-param> ] $<quant>=['?'|'!'|<?>]
           | <?>
           ]
         | $<quant>=['**'|'*'|'+'] <param-var>
         | $<quant>=['\\'|'|'] <param-var> {
               $/.panic('Obsolete use of | or \\ with sigil on param ' ~ $<param-var>);
           }
         | $<quant>=['\\'|'|'|'+'] <param-term>
-        | [ <param-var> | <named_param> ] $<quant>=['?'|'!'|<?>]
+        | [ <param-var> | <named-param> ] $<quant>=['?'|'!'|<?>]
         ]
         <.ws>
         <trait>*
@@ -3066,13 +3066,13 @@ grammar Raku::Grammar is HLL::Grammar does Raku::Common {
         <defterm>?
     }
 
-    token named_param {
+    token named-param {
         :my $*GOAL := ')';
         :dba('named parameter')
         ':'
         [
         | <name=.identifier> '('
-            <.ws> [ <named_param> | <param-var> ] <.ws>
+            <.ws> [ <named-param> | <param-var> ] <.ws>
             [ ')' || <.panic: 'Unable to parse named parameter; couldn\'t find right parenthesis'> ]
         | <param-var>
         ]