Implement [Rop]

rakudo · Mar 3, 2009 · 868c638 · 868c638
1 parent 688f9a2
commit 868c638
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/build/gen_metaop_pir.pl b/build/gen_metaop_pir.pl
@@ -103,6 +103,12 @@
             .param pmc b
             .tailcall 'infix:$opname'(b, a)
         .end\n);
+    push @gtokens, sprintf( $reducefmt, "R$opname", "R$opname" );
+    push @code, qq(
+        .sub 'prefix:[R$opname]'
+            .param pmc args    :slurpy
+            .tailcall '!REDUCEMETAOP$chain'('R$opname', $identity, args)
+        .end\n);
 
     # Cross operators.
     push @gtokens, sprintf( $crossfmt, $opname );