Implement whatever star cases of splice.

rakudo · Jan 10, 2013 · 099d0ec · 099d0ec
1 parent 8ca20db
commit 099d0ec
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/List.pm b/src/core/List.pm
@@ -234,14 +234,14 @@ my class List does Positional {
         my $o = $offset;
         my $s = $size;
         my $elems = self.elems;
-        $offset += $elems if ($offset < 0);
+        $o = $o($elems) if nqp::istype($o, Callable);
         X::OutOfRange.new(
             what => 'offset argument to List.splice',
             got  => $offset,
-            range => (-self.elems..^self.elems),
+            range => (0..^self.elems),
         ).fail if $o < 0;
         $s //= self.elems - ($o min $elems);
-        $s = self.elems + $s - $o if ($s < 0);
+        $s = $s(self.elems - $o) if nqp::istype($s, Callable);
         X::OutOfRange.new(
             what => 'size argument to List.splice',
             got  => $size,