Supply.categorize: distribute .done to sub-supplies

rakudo · Jan 25, 2015 · 94501a6 · 94501a6
1 parent 0c524e3
commit 94501a6
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/core/SupplyOperations.pm b/src/core/SupplyOperations.pm
@@ -361,6 +361,11 @@ my class SupplyOperations is repr('Uninstantiable') {
                 };
             }
 
+            method !classify-done() {
+                %!mapping.values>>.done;
+                self!done;
+            }
+
             method live { $source.live }
             method tap(|c) {
                 my $source_tap;
@@ -374,7 +379,7 @@ my class SupplyOperations is repr('Uninstantiable') {
                   !! -> \val {
                       self.find_supply( mapper(val) ).emit(val);
                   },
-                  done => { self!done(); },
+                  done => { self!classify-done(); },
                   quit => -> $ex { self!quit($ex) });
                 $tap
             }