Remove remaining role problems -- patch from jnthn++ .

rakudo · Jul 5, 2010 · 9868ec1 · 9868ec1
1 parent 0afa4ad
commit 9868ec1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1243,7 +1243,7 @@ method method_def($/) {
                           0;
 
         # Create code object using a reference to $past.
-        my $code := block_closure(blockref($past), $*METHODTYPE, $multi_flag);
+        my $code := block_code($past, $*METHODTYPE, $multi_flag);
 
         # Get hold of the correct table to install it in, and install.
         our @PACKAGE;

diff --git a/src/Perl6/Compiler/Role.pm b/src/Perl6/Compiler/Role.pm
@@ -76,7 +76,7 @@ method finish($block) {
             :pasttype('callmethod'),
             :name('add_method'),
             $meta_reg, $obj_reg, ~$_, 
-            %methods{~$_}<code_ref>
+             PAST::Op.new( :pasttype('callmethod'), :name('clone'), %methods{~$_}<code_ref> )
         ));
     }