Don't emit bindassert when constraint is Mu.

rakudo · Nov 23, 2013 · 3ca2699 · 3ca2699
1 parent 3afeb7f
commit 3ca2699
Showing 1 changed file with 12 additions and 8 deletions.
diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp
@@ -1957,11 +1957,13 @@ class Perl6::Actions is HLL::Actions does STDActions {
                 make QAST::Op.new(
                     :op<bind>,
                     QAST::Var.new(:$name, :scope<lexical>),
-                    QAST::Op.new(
-                        :op('p6bindassert'),
-                        $<term_init>.ast,
-                        QAST::WVal.new( :value($type) ),
-                    )
+                    $type =:= $*W.find_symbol(['Mu'])
+                        ?? $<term_init>.ast
+                        !! QAST::Op.new(
+                            :op('p6bindassert'),
+                            $<term_init>.ast,
+                            QAST::WVal.new( :value($type) ),
+                        )
                 );
             }
             else {
@@ -4700,9 +4702,11 @@ class Perl6::Actions is HLL::Actions does STDActions {
                 my int $was_lexical := 0;
                 try {
                     my $type := $*W.find_lexical_container_type($target.name);
-                    $source := QAST::Op.new(
-                        :op('p6bindassert'),
-                        $source, QAST::WVal.new( :value($type) ));
+                    unless $type =:= $*W.find_symbol(['Mu']) {
+                        $source := QAST::Op.new(
+                            :op('p6bindassert'),
+                            $source, QAST::WVal.new( :value($type) ));
+                    }
                     $was_lexical := 1;
                 }
                 unless $was_lexical {