Ununderscore postfix_prefix_meta_operator

rakudo · Jun 10, 2023 · 5a8402f · 5a8402f
1 parent 7f0ba79
commit 5a8402f
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
@@ -952,13 +952,13 @@ class Raku::Actions is HLL::Actions does Raku::CommonActions {
 
     method postfixish($/) {
         my $ast := $<OPER>.ast // self.r('Postfix').new(~$<postfix><sym>);
-        if $<postfix_prefix_meta_operator> {
-            $ast := $<postfix_prefix_meta_operator>.ast.new($ast);
+        if $<postfix-prefix-meta-operator> {
+            $ast := $<postfix-prefix-meta-operator>.ast.new($ast);
         }
         self.attach: $/, $ast;
     }
 
-    method postfix_prefix_meta_operator:sym<»>($/) {
+    method postfix-prefix-meta-operator:sym<»>($/) {
         # Check if we are inside «...» quoters and complain if the hyper creates
         # ambiguity with the quoters, since user may not wanted to have a hyper
         my str $sym := ~$<sym>;

diff --git a/src/Raku/Grammar.nqp b/src/Raku/Grammar.nqp
@@ -479,7 +479,7 @@ role Raku::Common {
                             $match<infix-circumfix-meta-operator> ||
                             $match<infix-postfix-meta-operator> ||
                             $match<prefix-postfix-meta-operator> ||
-                            $match<postfix_prefix_meta_operator> ||
+                            $match<postfix-prefix-meta-operator> ||
                             $match<op>)
                         {
                             my $META := $match.ast;
@@ -1233,15 +1233,15 @@ grammar Raku::Grammar is HLL::Grammar does Raku::Common {
         [ <!{ $*QSIGIL }> [ <.unsp> | '\\' ] ]?
 
         :dba('postfix')
-        [ ['.' <.unsp>?]? <postfix_prefix_meta_operator> <.unsp>?]?
+        [ ['.' <.unsp>?]? <postfix-prefix-meta-operator> <.unsp>?]?
         [
         | <OPER=postfix>
         | '.' <?before \W> <OPER=postfix>  ## dotted form of postfix operator (non-wordy only)
         | <OPER=postcircumfix>
         | '.' <?[ [ { < ]> <OPER=postcircumfix>
         | <OPER=dotty>
         | <OPER=privop>
-        | <?{ $<postfix_prefix_meta_operator> && !$*QSIGIL }>
+        | <?{ $<postfix-prefix-meta-operator> && !$*QSIGIL }>
             [
             || <?space> <.missing: "postfix">
             || <?alpha> <.missing: "dot on method call">
@@ -1251,9 +1251,9 @@ grammar Raku::Grammar is HLL::Grammar does Raku::Common {
         { $*LEFTSIGIL := '@'; }
     }
 
-    proto token postfix_prefix_meta_operator {*}
+    proto token postfix-prefix-meta-operator {*}
 
-    token postfix_prefix_meta_operator:sym<»> {
+    token postfix-prefix-meta-operator:sym<»> {
         [ <sym> | $<sym> = '>>' ]
         [ <!{ $*QSIGIL }> || <![(]> ]
     }