Be more specific about when to create container types.

jnthn++ for the patch.
rakudo · Nov 25, 2015 · 6313051 · 6313051
1 parent 2e38ba6
commit 6313051
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Perl6/World.nqp b/src/Perl6/World.nqp
@@ -1282,7 +1282,10 @@ class Perl6::World is HLL::World {
     method build_container(%cont_info, $descriptor) {
         my $cont;
         my $cont_type := %cont_info<container_type>;
-        if nqp::istype($cont_type, self.find_symbol(['Scalar'])) {
+        if %cont_info<build_ast> {
+            $cont := $cont_type;
+        }
+        elsif nqp::istype($cont_type, self.find_symbol(['Scalar'])) {
             $cont := nqp::create($cont_type);
             nqp::bindattr($cont, %cont_info<container_base>, '$!descriptor', $descriptor);
             if nqp::existskey(%cont_info, 'scalar_value') {