One more fix that sees us able to pass all but two tests in S14-role/…

…parameterized-basic.t that we can in master; will hunt those two down tomorrow.

src/Perl6/Compiler/Role.pm

@@ -51,7 +51,12 @@ method finish($block) {
         $decl.push(PAST::Op.new(
             :pasttype('callmethod'),
             :name('add_method'),
-            $metaclass, $meta_reg, ~$_, %methods{~$_}<code_ref>
+            $metaclass, $meta_reg, ~$_, 
+            PAST::Op.new(
+                :pasttype('callmethod'),
+                :name('clone'),
+                %methods{~$_}<code_ref>
+            )
         ));
     }
 

src/builtins/Code.pir

@@ -52,6 +52,20 @@ for executable objects.
 .end
 
 
+=item clone(do)
+
+=cut
+
+.sub 'clone' :method
+    $P0 = getattribute self, '$!do'
+    $P0 = clone $P0
+    $P1 = getattribute self, '$!multi'
+    $P2 = getattribute self, '$!lazy_sig_init_name'
+    $P3 = self.'new'($P0, $P1, $P2)
+    .return ($P3)
+.end
+
+
 =item assumming()
 
 Returns a curried version of self.