Quick version of .shift which seems to work, and a very mysteriously …

…broken shift proto.
rakudo · Dec 9, 2009 · 607a650 · 607a650
1 parent e1fcd3c
commit 607a650
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/core/Array.pm b/src/core/Array.pm
@@ -27,9 +27,16 @@ augment class Array {
         self;
     }
 
+    #CHEAT: Should return fail rather than Mu
     our multi method pop() {
         self.elems > 0 ?? pir::pop__PP($!values) !! Mu;
     }
+
+    #CHEAT: Should return fail rather than Mu
+    our multi method shift() {
+        self.elems > 0 ?? pir::shift__PP($!values) !! Mu;
+    }
 }
 
 our proto sub pop(@array) { @array.pop; }
+our proto sub shift(@array) { @array.shift; }