Do not produce empty parent lists in .^parents(:tree)

still seems to be a bit off
rakudo · Aug 22, 2015 · 5b902d4 · 5b902d4
1 parent c4742a6
commit 5b902d4
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Metamodel/MultipleInheritance.nqp b/src/Perl6/Metamodel/MultipleInheritance.nqp
@@ -53,7 +53,8 @@ role Perl6::Metamodel::MultipleInheritance {
             my @result;
             for @!parents {
                 my @pt := [$_];
-                @pt.push($_.HOW.parents($_, :tree(1)));
+                my @recursive_parents := $_.HOW.parents($_, :tree(1));
+                @pt.push(@recursive_parents) if @recursive_parents;
                 @result.push(nqp::hllizefor(@pt, 'perl6').Array.item);
             }
             return nqp::hllizefor(@result, 'perl6');