Follow generated param name conventions

rakudo · Feb 12, 2023 · 93caca5 · 93caca5
1 parent 27d1d70
commit 93caca5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Raku/ast/expressions.rakumod b/src/Raku/ast/expressions.rakumod
@@ -676,7 +676,7 @@ class RakuAST::ApplyInfix
                 my $operand := nqp::getattr(self, RakuAST::ApplyInfix, $_);
                 if nqp::istype($operand, RakuAST::Term::Whatever) {
                     my $curried := self.IMPL-CURRIED;
-                    my $param_name := '$whatevercode_arg' ~ ($curried ?? $curried.IMPL-NUM-PARAMS + 1 !! 1);
+                    my $param_name := '$whatevercode_arg_' ~ ($curried ?? $curried.IMPL-NUM-PARAMS + 1 !! 1);
                     my $param;
                     if $curried {
                         $param := $curried.IMPL-ADD-PARAM($param_name);
@@ -696,7 +696,7 @@ class RakuAST::ApplyInfix
             my $param-num := $curried.IMPL-NUM-PARAMS;
             for $params {
                 $param-num++;
-                $_.target.set-name('$whatevercode_arg' ~ $param-num);
+                $_.target.set-name('$whatevercode_arg_' ~ $param-num);
                 $curried.IMPL-ADD-PARAM($_.target.lexical-name);
             }
         }