Deparse ColonPair::Value with strings as :foo<bar>

as opposed to :foo('bar'), to make it more match common usage
rakudo · Jan 7, 2023 · 2fb1427 · 2fb1427
1 parent ac5a009
commit 2fb1427
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -403,11 +403,13 @@ class RakuAST::Deparse {
     }
 
     multi method deparse(RakuAST::ColonPair::Value:D $ast --> Str:D) {
-        ':'
-          ~ $ast.named-arg-name
-          ~ $.parens-open
-          ~ self.deparse($ast.value)
-          ~ $.parens-close
+        my $value := $ast.value;
+
+        ':' ~ $ast.named-arg-name ~ (
+          nqp::istype($value,RakuAST::StrLiteral)
+            ?? $.pointy-open ~ $value.value ~ $.pointy-close
+            !! $.parens-open ~ self.deparse($value) ~ $.parens-close
+        )
     }
 
     multi method deparse(RakuAST::ColonPair::Variable:D $ast --> Str:D) {