Properly create Regex method closures. Remove unneeded 'clone' step f…

…rom Role.pm.
rakudo · Jul 4, 2010 · 7b6444c · 7b6444c
1 parent 0ba07fa
commit 7b6444c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 7 deletions.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -1436,7 +1436,7 @@ method regex_def($/, $key?) {
 
         # Create code object and install it provided it has a name.
         if ($name) {
-            my $code := create_code_object(PAST::Val.new(:value($past)), 'Regex', 0);
+            my $code := block_closure(blockref($past), 'Regex', 0);
             our @PACKAGE;
             unless +@PACKAGE {
                 $/.CURSOR.panic("Can not declare named " ~ ~$<sym> ~ " outside of a package");
@@ -1446,7 +1446,7 @@ method regex_def($/, $key?) {
             install_method($/, $code, $name, %table);
         }
         else {
-            $past := create_code_object($past, 'Regex', 0);
+            $past := block_closure($past, 'Regex', 0);
         }
     }
     make $past;

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