Some more CharClassElement deparsing fixes

rakudo · Jan 14, 2023 · 67647f7 · 67647f7
1 parent 0e218e3
commit 67647f7
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -996,14 +996,18 @@ class RakuAST::Deparse {
     multi method deparse(
       RakuAST::Regex::CharClassElement::Enumeration:D $ast
     --> Str:D) {
-        '[' ~ $ast.elements.map({ self.deparse($_) }).join(' ') ~ ']'
+        ($ast.negated ?? '-' !! '+')
+          ~ '[' ~ $ast.elements.map({ self.deparse($_) }).join(' ') ~ ']'
     }
 
     multi method deparse(
       RakuAST::Regex::CharClassElement::Property:D $ast
     --> Str:D) {
-        my str @parts = ':';
-        @parts.push('-') if $ast.inverted;
+        my str @parts;
+
+        @parts.push($ast.negated ?? '-' !! '+');
+        @parts.push(':');
+        @parts.push('!') if $ast.inverted;
         @parts.push($ast.property);
         @parts.push(self.deparse($_)) with $ast.predicate;
         @parts.join