From 6baa4d5645fd149a69a30a343e4054726337bce4 Mon Sep 17 00:00:00 2001
From: Elizabeth Mattijsen <liz@raku.rocks>
Date: Sat, 10 Jun 2023 17:01:37 +0200
Subject: [PATCH] Ununderscore special_variable

---
 src/Raku/Grammar.nqp | 58 ++++++++++++++++++++++----------------------
 1 file changed, 29 insertions(+), 29 deletions(-)

diff --git a/src/Raku/Grammar.nqp b/src/Raku/Grammar.nqp
index 4fe0b5f2724..1d766430dbf 100644
--- a/src/Raku/Grammar.nqp
+++ b/src/Raku/Grammar.nqp
@@ -1989,140 +1989,140 @@ grammar Raku::Grammar is HLL::Grammar does Raku::Common {
         ]
     }
 
-    proto token special_variable {*}
+    proto token special-variable {*}
 
-    token special_variable:sym<$!{ }> {
+    token special-variable:sym<$!{ }> {
         [ '$!{' .*? '}' | '%!' ]
         <.obsvar('%!')>
     }
 
-    token special_variable:sym<$`> {
+    token special-variable:sym<$`> {
         <sym>  <?before \s | ',' | <.terminator> >
         <.obsvar('$`')>
     }
 
-    token special_variable:sym<$@> {
+    token special-variable:sym<$@> {
         <sym> <[ \s ; , ) ]> .
         <.obsvar('$@')>
     }
 
-    token special_variable:sym<$#> {
+    token special-variable:sym<$#> {
         <sym> <identifier>
         {}
         <.obsvar('$#', ~$<identifier>)>
     }
 
-    token special_variable:sym<$$> {
+    token special-variable:sym<$$> {
         <sym> \W
         <.obsvar('$$')>
     }
 
-    token special_variable:sym<$&> {
+    token special-variable:sym<$&> {
         <sym> <?before \s | ',' | <.terminator> >
         <.obsvar('$&')>
     }
 
-    token special_variable:sym<@+> {
+    token special-variable:sym<@+> {
         <sym> <?before \s | ',' | <.terminator> >
         <.obsvar('@+')>
     }
 
-    token special_variable:sym<%+> {
+    token special-variable:sym<%+> {
         <sym> <?before \s | ',' | <.terminator> >
         <.obsvar('%+')>
     }
 
-    token special_variable:sym<$+[ ]> {
+    token special-variable:sym<$+[ ]> {
         '$+['
         <.obsvar('@+')>
     }
 
-    token special_variable:sym<@+[ ]> {
+    token special-variable:sym<@+[ ]> {
         '@+['
         <.obsvar('@+')>
     }
 
-    token special_variable:sym<@+{ }> {
+    token special-variable:sym<@+{ }> {
         '@+{'
         <.obsvar('%+')>
     }
 
-    token special_variable:sym<@-> {
+    token special-variable:sym<@-> {
         <sym> <?before \s | ',' | <.terminator> >
         <.obsvar('@-')>
     }
 
-    token special_variable:sym<%-> {
+    token special-variable:sym<%-> {
         <sym> <?before \s | ',' | <.terminator> >
         <.obsvar('%-')>
     }
 
-    token special_variable:sym<$-[ ]> {
+    token special-variable:sym<$-[ ]> {
         '$-['
         <.obsvar('@-')>
     }
 
-    token special_variable:sym<@-[ ]> {
+    token special-variable:sym<@-[ ]> {
         '@-['
         <.obsvar('@-')>
     }
 
-    token special_variable:sym<%-{ }> {
+    token special-variable:sym<%-{ }> {
         '@-{'
         <.obsvar('%-')>
     }
 
-    token special_variable:sym<$/> {
+    token special-variable:sym<$/> {
         <sym> <?before \h* '=' \h* <.[ ' " ]> >
         <.obsvar('$/')>
     }
 
-    token special_variable:sym<$\\> {
+    token special-variable:sym<$\\> {
         '$\\' <?before \s | ',' | '=' | <.terminator> >
         <.obsvar('$\\')>
     }
 
-    token special_variable:sym<$|> {
+    token special-variable:sym<$|> {
         <sym> <?before \h* '='>
         <.obsvar('$|')>
     }
 
-    token special_variable:sym<$;> {
+    token special-variable:sym<$;> {
         <sym> <?before \h* '='>
         <.obsvar('$;')>
     }
 
-    token special_variable:sym<$'> { #'
+    token special-variable:sym<$'> { #'
         <sym> <?before \s | ',' | <.terminator> >
         <.obsvar('$' ~ "'")>
     }
 
-    token special_variable:sym<$"> {
+    token special-variable:sym<$"> {
         <sym> <?before \h* '='>
         <.obsvar('$"')>
     }
 
-    token special_variable:sym<$,> {
+    token special-variable:sym<$,> {
         <sym> <?before \h* '='>
         <.obsvar('$,')>
     }
 
-    token special_variable:sym<$.> {
+    token special-variable:sym<$.> {
         <sym> {} <!before \w | '(' | ':' | '^' >
         <.obsvar('$.')>
     }
 
-    token special_variable:sym<$?> {
+    token special-variable:sym<$?> {
         <sym> {} <!before \w | '('>
         <.obsvar('$?')>
     }
 
-    token special_variable:sym<$]> {
+    token special-variable:sym<$]> {
         <sym> {} <!before \w | '('>
         <.obsvar('$]')>
     }
 
-    regex special_variable:sym<${ }> {
+    regex special-variable:sym<${ }> {
         <sigil> '{' {} $<text>=[.*?] '}'
         <!{ $*IN_DECL }>
         <!{ $<text> ~~ / '=>' || ':'<:alpha> || '|%' / }>
@@ -2156,7 +2156,7 @@ grammar Raku::Grammar is HLL::Grammar does Raku::Common {
         | :dba('infix noun') '&[' ~ ']' <infixish('[]')>
         | <sigil> <twigil>? <desigilname>
         | $<sigil>=['$'] $<desigilname>=[<[/_!¢]>]
-        | <special_variable>
+        | <special-variable>
         | <sigil> $<index>=[\d+]
         | <sigil> <?[<]> <postcircumfix>
         | <?before <.sigil> <.?[ ( [ { ]>> <!RESTRICTED> <?{ !$*IN_DECL }> <contextualizer>