RakuAST: support {*} in term position

This is enough to support re-dispatch from protos to the multi, e.g. proto foo(|) { say "before"; {*}; say "after"}
rakudo · Mar 10, 2023 · 5a86936 · 5a86936
1 parent 525dd64
commit 5a86936
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/src/Raku/Actions.nqp b/src/Raku/Actions.nqp
@@ -1250,6 +1250,10 @@ class Raku::Actions is HLL::Actions does Raku::CommonActions {
         self.attach: $/, self.r('Term', 'Capture').new($<args>.ast);
     }
 
+    method term:sym<onlystar>($/) {
+        self.attach: $/, self.r('OnlyStar').new;
+    }
+
     method colonpair($/) {
         my $key-str := $*key;
         if $key-str {

diff --git a/src/Raku/Grammar.nqp b/src/Raku/Grammar.nqp
@@ -1798,6 +1798,11 @@ grammar Raku::Grammar is HLL::Grammar does Raku::Common {
         ]
     }
 
+    token term:sym<onlystar> {
+        '{*}' <?ENDSTMT>
+        # [ <?{ $*IN_PROTO }> || <.panic: '{*} may only appear in proto'> ]
+    }
+
     token colonpair {
         :my $*key;
         ':'