From 9de1eba437841f9969c66823d0e82130175b2ebd Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Sat, 29 May 2010 19:33:40 +0200
Subject: [PATCH] use Perl 6 arrays in Match objects

---
 src/builtins/Cursor.pir | 5 +++++
 src/builtins/Mu.pir     | 5 +++++
 2 files changed, 10 insertions(+)

diff --git a/src/builtins/Cursor.pir b/src/builtins/Cursor.pir
index 8ca3079b5a8..2434ea1aae9 100644
--- a/src/builtins/Cursor.pir
+++ b/src/builtins/Cursor.pir
@@ -24,6 +24,11 @@ Cursor - Perl 6 cursor objects
     .return ($P0)
 .end
 
+.sub 'new_array' :method
+    $P0 = new ['Array']
+    .return ($P0)
+.end
+
 =back
 
 =cut
diff --git a/src/builtins/Mu.pir b/src/builtins/Mu.pir
index 9b1fbe935f6..47474fb37e8 100644
--- a/src/builtins/Mu.pir
+++ b/src/builtins/Mu.pir
@@ -525,6 +525,11 @@ Gets the object's identity value
     .tailcall self.'shift'()
 .end
 
+.sub '' :vtable('push_pmc') :method
+    .param pmc value
+    .tailcall self.'push'(value)
+.end
+
 .sub 'list' :method
     .tailcall '&infix:<,>'(self)
 .end