RakuAST: add deparse/raku/test for RakuAST::MetaInfix::Reverse

src/core.c/RakuAST/Deparse.pm6

@@ -580,6 +580,10 @@ class RakuAST::Deparse {
         self.deparse($ast.infix) ~ '!'
     }
 
+    multi method deparse(RakuAST::MetaInfix::Reverse:D $ast --> Str:D) {
+        'R' ~ self.deparse($ast.infix)
+    }
+
     multi method deparse(RakuAST::Method:D $ast --> Str:D) {
         self!method($ast, 'method')
     }

src/core.c/RakuAST/Raku.pm6

@@ -375,6 +375,10 @@ augment class RakuAST::Node {
         self!positional(self.infix)
     }
 
+    multi method raku(RakuAST::MetaInfix::Reverse:D: --> Str:D) {
+        self!positional(self.infix)
+    }
+
     multi method raku(RakuAST::Method:D: --> Str:D) {
         my str @nameds = 'name';
         @nameds.unshift("multiness") if self.multiness;

t/12-rakuast/meta-operators.rakutest

@@ -1,7 +1,7 @@
 use v6.e.PREVIEW;
 use Test;
 
-plan 5;
+plan 6;
 
 my $ast;
 my $deparsed;
@@ -34,6 +34,21 @@ subtest 'Assignment meta-op evaluates to expected value' => {
     }
 }
 
+subtest 'Reverse meta-op evaluates to expected value' => {
+    # 42 R- 666
+    ast RakuAST::ApplyInfix.new(
+      left  => RakuAST::IntLiteral.new(42),
+      infix => RakuAST::MetaInfix::Reverse.new(
+        RakuAST::Infix.new("-")
+      ),
+      right => RakuAST::IntLiteral.new(666)
+    );
+
+    is-deeply $deparsed, '42 R- 666', 'deparse';
+    is-deeply $_, 624, @type[$++]
+      for EVAL($ast), EVAL($deparsed), EVAL(EVAL $raku);
+}
+
 subtest 'Assignment meta-op with short-circuit || evaluates to true LHS' => {
     my $test = 10;
     my $update = 2;