all ranges autotruncate on subscripting overrun

src/core/array_slice.pm

@@ -2,16 +2,19 @@
 
 sub POSITIONS (\SELF, \pos) { # handle possible infinite slices
     my $positions = pos.flat;
-    $positions.gimme(*);
-    return $positions.map( {
-        $_ ~~ Callable ?? $_(|(SELF.elems xx $_.count)) !! $_
-    } ).eager.Parcel unless $positions.infinite;
 
-    my $list = SELF.list;
-    $positions.map( {
-        last if $_ >= $list.gimme( $_ + 1 );
-        $_;
-    } ).eager.Parcel;
+    if pos ~~ Range || ($positions.gimme(*) && $positions.infinite) {
+        my $list = SELF.list;
+        $positions.map( {
+            last if $_ >= $list.gimme( $_ + 1 );
+            $_;
+        } ).eager.Parcel;
+    }
+    else {
+        $positions.map( {
+            $_ ~~ Callable ?? $_(|(SELF.elems xx $_.count)) !! $_
+        } ).eager.Parcel;
+    }
 }
 
 my class X::NYI { ... }