Fix but True / but False.

rakudo · Feb 14, 2012 · d4d4a21 · d4d4a21
1 parent d43594e
commit d4d4a21
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Perl6/Metamodel/Mixins.pm b/src/Perl6/Metamodel/Mixins.pm
@@ -18,8 +18,11 @@ role Perl6::Metamodel::Mixins {
         for @roles {
             $new_type.HOW.add_role($new_type, $_);
         }
-        $new_type.HOW.set_boolification_mode($new_type, self.get_boolification_mode($obj));
         $new_type.HOW.compose($new_type);
+        $new_type.HOW.set_boolification_mode($new_type,
+            pir::exists($new_type.HOW.method_table($new_type), 'Bool') ?? 0 !!
+                self.get_boolification_mode($obj));
+        $new_type.HOW.publish_boolification_spec($new_type);
 
         # If the original object was concrete, change its type by calling a
         # low level op. Otherwise, we just return the new type object