//= and friends should be able to handle Mu

rakudo · Jun 6, 2012 · 71a5632 · 71a5632
1 parent 9103333
commit 71a5632
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/metaops.pm b/src/core/metaops.pm
@@ -3,9 +3,9 @@ sub METAOP_ASSIGN(\$op) {
     -> Mu \$a, Mu \$b { $a = $op( $a // $op(), $b) }
 }
 
-sub METAOP_TEST_ASSIGN:<//>(\$lhs, $rhs) is rw { $lhs // ($lhs = $rhs()) }
-sub METAOP_TEST_ASSIGN:<||>(\$lhs, $rhs) is rw { $lhs || ($lhs = $rhs()) }
-sub METAOP_TEST_ASSIGN:<&&>(\$lhs, $rhs) is rw { $lhs && ($lhs = $rhs()) }
+sub METAOP_TEST_ASSIGN:<//>(Mu \$lhs, Mu $rhs) is rw { $lhs // ($lhs = $rhs()) }
+sub METAOP_TEST_ASSIGN:<||>(Mu \$lhs, Mu $rhs) is rw { $lhs || ($lhs = $rhs()) }
+sub METAOP_TEST_ASSIGN:<&&>(Mu \$lhs, Mu $rhs) is rw { $lhs && ($lhs = $rhs()) }
 
 sub METAOP_NEGATE(\$op) {
     -> Mu \$a, Mu \$b { !$op($a,$b) }