use $?METACLASS in two more places

bschmalhofer · Jun 22, 2009 · cb625f0 · cb625f0
1 parent 81f82f3
commit cb625f0
Showing 1 changed file with 8 additions and 13 deletions.
diff --git a/src/pct/actions.pm b/src/pct/actions.pm
@@ -740,14 +740,12 @@ method class_member_def($/) {
     );
 
     # create the attribute
+    our $?METACLASS;
     my $call_meta_attribute := 
         PAST::Op.new(
             :pasttype('call'),
             :name('pipp_meta_attribute'),
-            PAST::Var.new(
-                :name('metaclass'),
-                :scope('register')
-            ),
+            $?METACLASS,
             $member_name
         );
 
@@ -956,15 +954,12 @@ method class_def($/, $key) {
     }
 
     # It's a new class definition. Make proto-object.
-    $block.push(
-        PAST::Op.new(
-            :pasttype('call'),
-            :name('pipp_meta_compose'),
-            PAST::Var.new(
-                :scope('register'),
-                :name('metaclass')
-            )
-        )
+    our $?METACLASS;
+    $block.push( PAST::Op.new(
+                     :pasttype('call'),
+                     :name('pipp_meta_compose'),
+                     $?METACLASS
+                 )
     );
 
     $?CLASS := '';