use Perl 6 arrays in Match objects

rakudo · May 29, 2010 · 9de1eba · 9de1eba
1 parent 6afdfbd
commit 9de1eba
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git 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
@@ -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