Simplify Supply.list

rakudo · Dec 22, 2014 · f57427b · f57427b
1 parent 284c098
commit f57427b
Showing 1 changed file with 1 addition and 7 deletions.
diff --git a/src/core/Supply.pm b/src/core/Supply.pm
@@ -153,13 +153,7 @@ my role Supply {
 
     method list(Supply:D:) {
         # Use a Channel to handle any asynchrony.
-        my $c = self.Channel;
-        map sub ($) {
-            earliest $c {
-                more * { $_ }
-                done * { last }
-            }
-        }, *;
+        self.Channel.list;
     }
 
     method on_demand(Supply:U: |c)       { SupplyOperations.on_demand(|c) }