Properly throw exceptions in taps

rakudo · Apr 18, 2014 · 2180049 · 2180049
1 parent 1b47edb
commit 2180049
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Supply.pm b/src/core/Supply.pm
@@ -18,7 +18,7 @@ my role Supply {
     has @!tappers;
     has $!tappers_lock = Lock.new;
 
-    method tap(&more, :&done, :&quit) {
+    method tap(&more, :&done, :&quit = {.die}) {
         my $sub = Tap.new(:&more, :&done, :&quit, :supply(self));
         $!tappers_lock.protect({
             @!tappers.push($sub);
@@ -125,7 +125,7 @@ sub on(&setup) {
             $source.tap(
               -> \val {
                   $lock.protect({ more(val) });
-#                  CATCH { default { self.quit($_) } }
+                  CATCH { default { self.quit($_) } }
               },
               done => {
                   $lock.protect({ done() });