Add postprocessor invocation.

rakudo · Oct 28, 2012 · 6fcac2e · 6fcac2e
1 parent 99f6013
commit 6fcac2e
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -5686,8 +5686,18 @@ class Perl6::QActions is HLL::Actions does STDActions {
         for @asts {
             $past := QAST::Op.new( :op('call'), :name('&infix:<~>'), $past, $_ );
         }
+
+        if nqp::can($/.CURSOR, 'postprocessor') {
+            my $pp := $/.CURSOR.postprocessor;
+            $past := self."postprocess_$pp"($past);
+        }
+
         make $past;
     }
+
+    method postprocess_null($past) {
+        $past
+    }
 
     method escape:sym<\\>($/) { make $<item>.ast; }
     method backslash:sym<qq>($/) { make $<quote>.ast; }