Mark the CArray dimension as nut sunk

rakudo · Apr 27, 2018 · 7847768 · 7847768
1 parent 4c3807c
commit 7847768
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -3209,8 +3209,7 @@ class Perl6::Actions is HLL::Actions does STDActions {
             if $<scoped><DECL><declarator><variable_declarator><semilist> -> $semilist {
                 my @dimensions := nqp::list_i();
                 for $semilist -> $dimension {
-                    $dimension.ast.nosink(1);
-                    my $elems := nqp::unbox_i($*W.compile_time_evaluate($/, $dimension.ast));
+                    my $elems := nqp::unbox_i($*W.compile_time_evaluate($/, $dimension.ast, :mark-wanted));
                     nqp::push_i(@dimensions, $elems);
                 }
                 nqp::bindattr($attr, $attr.WHAT, '$!dimensions', @dimensions);