Only make a pun once.

rakudo · Sep 9, 2011 · 21089d9 · 21089d9
1 parent 8c9dd1a
commit 21089d9
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Perl6/Metamodel/RolePunning.pm b/src/Perl6/Metamodel/RolePunning.pm
@@ -27,12 +27,11 @@ role Perl6::Metamodel::RolePunning {
 
     # Produces something that can be inherited from (the pun).
     method inheritalize($obj) {
-        if $!made_pun {
-            $!pun
-        }
-        else {
+        unless $!made_pun {
             $!pun := self.make_pun($obj);
+            $!made_pun := 1;
         }
+        $!pun
     }
 
     # Do a pun-based dispatch. If we pun, return a thunk that will delegate.
@@ -42,6 +41,7 @@ role Perl6::Metamodel::RolePunning {
         }
         unless $!made_pun {
             $!pun := self.make_pun($obj);
+            $!made_pun := 1;
         }
         -> $inv, *@pos, *%named {
             $!pun."$name"(|@pos, |%named)