Fix inverted type test in is default(...).

rakudo · Sep 19, 2015 · a5ef61e · a5ef61e
1 parent a3962b0
commit a5ef61e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Variable.pm b/src/core/Variable.pm
@@ -59,7 +59,7 @@ multi sub trait_mod:<is>(Variable:D $v, :$default!) {
     my $of := $descriptor.of;
     $v.throw( 'X::Parameter::Default::TypeCheck',
       :expected($var.WHAT), :got($default =:= Nil ?? 'Nil' !! $default) )
-      unless nqp::istype($of, $default.WHAT) or $default =:= Nil or $of =:= Mu;
+      unless nqp::istype($default.WHAT, $of) or $default =:= Nil or $of =:= Mu;
     $descriptor.set_default(nqp::decont($default));
 
     # make sure we start with the default if a scalar