From c66322ec857f23a18f37f0cc64c52b0498300a47 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Wed, 11 Feb 2009 10:20:10 -0600
Subject: [PATCH] Add 'make' function (partial RT #63152, chrisdolan++) Patch
 courtesy Chris Dolan <chris  at chrisdolan.net>

---
 src/builtins/match.pir | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/src/builtins/match.pir b/src/builtins/match.pir
index 775ae0221e6..32469d15e6d 100644
--- 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