From 94b4ca96ab50ab61d682f01a51c38f468f1d10d0 Mon Sep 17 00:00:00 2001
From: Vadim Belman <vrurg@lflat.org>
Date: Fri, 20 Dec 2019 11:56:21 -0500
Subject: [PATCH] Fix for handling non-Raku metaclasses

`concretizations` method must only iterate over parents capable of
reporting their concretizations.
---
 src/Perl6/Metamodel/Concretization.nqp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Perl6/Metamodel/Concretization.nqp b/src/Perl6/Metamodel/Concretization.nqp
index ade901acbf9..a77e393c47d 100644
--- a/src/Perl6/Metamodel/Concretization.nqp
+++ b/src/Perl6/Metamodel/Concretization.nqp
@@ -25,8 +25,10 @@ role Perl6::Metamodel::Concretization {
         @conc := self.c3_merge(@conc) if $transitive;
         unless $local {
             for self.parents($obj, :local) {
-                for $_.HOW.concretizations($_, :$local, :$transitive) {
-                    nqp::push(@conc, $_)
+                if nqp::can($_.HOW, 'concretizations') {
+                    for $_.HOW.concretizations($_, :$local, :$transitive) {
+                        nqp::push(@conc, $_)
+                    }
                 }
             }
         }