Pass on any Failure with .POSITIONS

Part of fixing R#2788
rakudo · Apr 15, 2019 · 7bbbebc · 7bbbebc
1 parent b7562d3
commit 7bbbebc
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/src/core/Block.pm6 b/src/core/Block.pm6
@@ -78,7 +78,8 @@ my class Block { # declared in BOOTSTRAP
     }
 
     # helper method for array slicing
-    method POSITIONS(Block:D $self: \list) {
+    multi method POSITIONS(Block:D: Failure:D \failure) { failure }
+    multi method POSITIONS(Block:D $self: Any:D \list) {
       nqp::if(
         (nqp::istype(
           (my \n := nqp::getattr(

diff --git a/src/core/Code.pm6 b/src/core/Code.pm6
@@ -8,6 +8,8 @@ my class Code does Callable { # declared in BOOTSTRAP
         $self.count ?? $self($topic) !! $self()
     }
 
+    proto method POSITIONS(|) {*}
+
     method arity(Code:D:) { nqp::getattr_i($!signature,Signature,'$!arity') }
 
     method count(Code:D:) { nqp::getattr($!signature,Signature,'$!count') }

diff --git a/src/core/WhateverCode.pm6 b/src/core/WhateverCode.pm6
@@ -1,7 +1,8 @@
 my class WhateverCode is Code {
 
     # helper method for array slicing
-    method POSITIONS(WhateverCode:D $self: \list) {
+    multi method POSITIONS(WhateverCode:D: Failure:D \failure) { failure }
+    multi method POSITIONS(WhateverCode:D $self: \list) {
       my \signature := nqp::getattr($self,Code,'$!signature');
       my \count := nqp::getattr(signature,Signature,'$!count');
       nqp::if(