RakuAST: fix deparsing of E<> markup

rakudo · May 2, 2023 · 5965d7f · 5965d7f
1 parent c55455d
commit 5965d7f
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -646,10 +646,13 @@ class RakuAST::Deparse {
         my str $letter = $ast.letter;
         my $meta      := $ast.meta;
 
-        $letter ~ '<'~ deparse-join($ast.atoms) ~ (
-          $meta
-            ?? '|' ~ deparse-join($meta, $ast.separator) ~ '>'
-            !! '>'
+        $letter ~ '<'~ ($letter eq 'E'
+          ?? deparse-join($meta, ';') ~ '>'
+          !! deparse-join($ast.atoms) ~ (
+               $meta
+                 ?? '|' ~ deparse-join($meta, $ast.separator) ~ '>'
+                 !! '>'
+             )
         )
     }