RakuAST: fix deparsing issue, and simplify some rakufication

rakudo · Jul 31, 2023 · f7a314b · f7a314b
1 parent 5e353bc
commit f7a314b
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -1528,7 +1528,18 @@ class RakuAST::Deparse {
         @parts.push(':');
         @parts.push('!') if $ast.inverted;
         @parts.push($ast.property);
-        @parts.push(self.deparse($_)) with $ast.predicate;
+
+        with $ast.predicate {
+            if nqp::istype($_,RakuAST::StrLiteral) {
+                @parts.push('<');
+                @parts.push(self.deparse-unquoted($_));
+                @parts.push('>');
+            }
+            else {
+                @parts.push(self.deparse($_))
+            }
+        }
+
         @parts.join
     }
 

diff --git a/src/core.c/RakuAST/Raku.pm6 b/src/core.c/RakuAST/Raku.pm6
@@ -169,6 +169,9 @@ augment class RakuAST::Node {
           'implicit-topic', -> {
               :implicit-topic if self.implicit-topic
           },
+          'inverted', -> {
+              :inverted if self.inverted
+          },
           'labels', -> {
               my $labels := nqp::decont(self.labels);
               :$labels if $labels