Allow .shift from an empty list like P5

sorear · Oct 25, 2010 · f288668 · f288668
1 parent d4cfcab
commit f288668
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/v6/tryfile b/v6/tryfile
@@ -4,6 +4,10 @@ use MONKEY_TYPING;
 use STD;
 use STDStash;
 
+augment class List {
+    method shift() { self!fill(1) ?? self!shift-item !! Any }
+}
+
 augment class STD {
     method panic($str) { die "$str at {self.pos}" }
 }