Add single value candidates for Array.unshift

rakudo · Oct 1, 2015 · 469d463 · 469d463
1 parent a10ec97
commit 469d463
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/src/core/Array.pm b/src/core/Array.pm
@@ -548,11 +548,22 @@ my class Array { # declared in BOOTSTRAP
         self
     }
 
+    multi method unshift(Array:D: Slip \value) {
+        self!ensure-allocated();
+        self!prepend-list(value)
+    }
+    multi method unshift(Array:D: \value) {
+        self!ensure-allocated();
+        nqp::unshift(
+            nqp::getattr(self, List, '$!reified'),
+            nqp::assign(nqp::p6scalarfromdesc($!descriptor), value)
+        );
+        self
+    }
     multi method unshift(Array:D: **@values is raw) {
         self!ensure-allocated();
         self!prepend-list(@values)
     }
-
     multi method prepend(Array:D: \value) {
         if nqp::iscont(value) || nqp::not_i(nqp::istype(value, Iterable)) {
             self!ensure-allocated();