Cope with containerized type objects in REPRComposeProtocol

rakudo · May 29, 2018 · b9f0871 · b9f0871
1 parent 9684d1f
commit b9f0871
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Perl6/Metamodel/REPRComposeProtocol.nqp b/src/Perl6/Metamodel/REPRComposeProtocol.nqp
@@ -24,12 +24,12 @@ role Perl6::Metamodel::REPRComposeProtocol {
                     nqp::push(@repr_info, @type_info);
 
                     # ...which in turn contains the current type in the MRO...
-                    nqp::push(@type_info, $type_obj);
+                    nqp::push(@type_info, nqp::decont($type_obj));
 
                     # ...then an array of hashes per attribute...
                     my @attrs;
                     nqp::push(@type_info, @attrs);
-                    for $type_obj.HOW.attributes($type_obj, :local) -> $attr {
+                    for $type_obj.HOW.attributes(nqp::decont($type_obj), :local) -> $attr {
                         my %attr_info;
                         %attr_info<name> := $attr.name;
                         %attr_info<type> := $attr.type;
@@ -56,7 +56,7 @@ role Perl6::Metamodel::REPRComposeProtocol {
                     }
 
                     # ...followed by a list of immediate parents.
-                    nqp::push(@type_info, $type_obj.HOW.parents($type_obj, :local));
+                    nqp::push(@type_info, $type_obj.HOW.parents(nqp::decont($type_obj), :local));
                 }
 
                 # Compose the representation using it.