From ec59d3658bbce4057231bac912ca02ba4b9e9b9c Mon Sep 17 00:00:00 2001
From: Chris Dolan <chris@chrisdolan.net>
Date: Tue, 10 Feb 2009 22:14:11 -0600
Subject: [PATCH] Add 'invoke' method to perl6 HLLCompiler to allow embedded code in PGE

---
 perl6.pir |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/perl6.pir b/perl6.pir
index 0bb1559..ea0c31e 100644
--- a/perl6.pir
+++ b/perl6.pir
@@ -215,6 +215,14 @@ to the Perl 6 compiler.
     .return (list)
 .end
 
+.sub 'invoke' :vtable :method
+    .local pmc compiler, invokable, res
+    compiler = compreg 'Perl6'
+    $S0 = self
+    invokable = compiler.'compile'($S0)
+    res = invokable()
+    .return ()
+.end
 
 .include 'src/gen_grammar.pir'
 .include 'src/parser/expression.pir'
-- 
1.6.1