RakuAST: fix deparsing of (foo,bar).baz

It was being deparsed as foo,bar.baz which is *not* the same.
rakudo · Jun 28, 2023 · 0550ae7 · 0550ae7
1 parent dd55ffe
commit 0550ae7
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -533,8 +533,18 @@ class RakuAST::Deparse {
     }
 
     multi method deparse(RakuAST::ApplyPostfix:D $ast --> Str:D) {
-        ($ast.on-topic ?? "" !! self.deparse($ast.operand).chomp)
-          ~ self.deparse($ast.postfix)
+        my str $deparsed-postfix = self.deparse($ast.postfix);
+        if $ast.on-topic {
+            $deparsed-postfix
+        }
+        else {
+            my     $operand         := $ast.operand;
+            my str $deparsed-operand = self.deparse($operand);
+
+            nqp::istype($operand,RakuAST::ApplyListInfix)
+              ?? '(' ~ $deparsed-operand ~ ')' ~ $deparsed-postfix
+              !! $deparsed-operand ~ $deparsed-postfix
+        }
     }
 
     multi method deparse(RakuAST::ApplyPrefix:D $ast --> Str:D) {