Add 'make' function (partial RT #63152, chrisdolan++)

Patch courtesy Chris Dolan <chris at chrisdolan.net>
rakudo · Feb 11, 2009 · c66322e · c66322e
1 parent 45cf376
commit c66322e
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/builtins/match.pir b/src/builtins/match.pir
@@ -25,6 +25,16 @@ src/builtins/match.pir - Perl6 builtins for smart matching
     .tailcall x.'REJECTS'(topic)
 .end
 
+
+.sub 'make'
+    .param pmc value
+    $P0 = getinterp
+    $P1 = $P0['lexpad';1]
+    $P2 = $P1['$/']
+    $P2.'result_object'(value)
+.end
+
+
 =back
 
 =cut