Permalink
Browse files

Fix but True / but False.

  • Loading branch information...
1 parent d43594e commit d4d4a21f1e0d6e4d98e9879dd3b321734ab90739 @jnthn jnthn committed Feb 14, 2012
Showing with 4 additions and 1 deletion.
  1. +4 −1 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

0 comments on commit d4d4a21

Please sign in to comment.