From e1fcd3c6c9216304ad215ade0caf7049a5d08daf Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Wed, 9 Dec 2009 12:45:48 -0500
Subject: [PATCH] Quick version of .pop which seems to work, and a very
 mysteriously broken pop proto.

---
 src/core/Array.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/core/Array.pm b/src/core/Array.pm
index 5acf554c95b..301080fc217 100644
--- a/src/core/Array.pm
+++ b/src/core/Array.pm
@@ -26,4 +26,10 @@ augment class Array {
         };
         self;
     }
+
+    our multi method pop() {
+        self.elems > 0 ?? pir::pop__PP($!values) !! Mu;
+    }
 }
+
+our proto sub pop(@array) { @array.pop; }