Use eager pick(*) where it makes sense

This makes at least EARLIEST a bit faster, and hopefully more stable.
rakudo · Apr 25, 2015 · 9d74227 · 9d74227
1 parent ecd3159
commit 9d74227
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/EnumMap.pm b/src/core/EnumMap.pm
@@ -49,7 +49,7 @@ my class EnumMap does Associative { # declared in BOOTSTRAP
     multi method perl(EnumMap:D:) {
         self.^name
           ~ '.new('
-          ~ self.pairs.pick(*).map({.perl}).join(', ')
+          ~ self.pairs.pick(*,:eager).map({.perl}).join(', ')
           ~ ')';
     }
 

diff --git a/src/core/asyncops.pm b/src/core/asyncops.pm
@@ -93,7 +93,7 @@ sub EARLIEST(@earliest,*@other,:$wild_done,:$wild_more,:$wait,:$wait_time) {
 
     CHECK:
     loop {  # until something to return
-        for @todo.pick(*) -> $todo {
+        for @todo.pick(*,:eager) -> $todo {
             my $kind       := $todo[1];
             my $contestant := $todo[2];