allow whenever blocks to use redo

rakudo · Jan 20, 2017 · 0a0508d · 0a0508d
1 parent f97d5c2
commit 0a0508d
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/src/core/Supply.pm b/src/core/Supply.pm
@@ -1683,9 +1683,20 @@ sub SUPPLY(&block) {
             $state.run-operation({
                 my &*ADD-WHENEVER = sub ($supply, &whenever-block) {
                     $state.increment-active();
+                    my $redoable = -> \value {
+                        loop {
+                            nqp::handle(
+                                nqp::stmts(whenever-block(value), last),
+                                'REDO', 0)
+                        }
+                    }
                     my $tap = $supply.tap(
                         -> \value {
-                            self!run-supply-code({ whenever-block(value) }, $state)
+                            self!run-supply-code({
+                                nqp::handle(
+                                    whenever-block(value),
+                                    'REDO', $redoable(value))
+                            }, $state)
                         },
                         done => {
                             $state.delete-active-tap($tap) if $tap.DEFINITE;