Permalink
Browse files

Fix logic for finding all possible candidates.

  • Loading branch information...
1 parent 150bdc9 commit 19d9ae04a29393d4e9e8bfe8d39f2717934952ac @jnthn jnthn committed Mar 15, 2013
Showing with 6 additions and 2 deletions.
  1. +6 −2 src/Perl6/Metamodel/BOOTSTRAP.pm
@@ -1096,8 +1096,12 @@ BEGIN {
# See if we need to push it onto the many list and continue.
# Otherwise, we have the result we were looking for.
if $many {
- for @possibles {
- nqp::push($many_res, $_)
+ while @possibles {
+ nqp::push($many_res, nqp::atkey(nqp::shift(@possibles), 'sub'))
+ }
+ $cur_idx++;
+ unless nqp::isconcrete(nqp::atpos(@candidates, $cur_idx)) {
+ $done := 1;
}
}
elsif @possibles {

0 comments on commit 19d9ae0

Please sign in to comment.