More pir:: -> nqp:: and add 'name' methods.

Raku · Feb 1, 2013 · f7f8eb6 · f7f8eb6
1 parent f544686
commit f7f8eb6
Showing 1 changed file with 9 additions and 3 deletions.
diff --git a/src/core/NQPRoutine.pm b/src/core/NQPRoutine.pm
@@ -15,7 +15,7 @@ my knowhow NQPRoutine {
         my $do  := nqp::clone($!do);
 
         # Clone and attach the code object.
-        my $der := pir::repr_clone__PP(self);
+        my $der := nqp::clone(self);
         nqp::bindattr($der, NQPRoutine, '$!do', $do);
         nqp::bindattr($der, NQPRoutine, '$!dispatchees', nqp::clone($!dispatchees));
         nqp::setcodeobj($do, $der);
@@ -33,7 +33,7 @@ my knowhow NQPRoutine {
         my $do  := nqp::clone($!do);
 
         # Clone and attach the code object.
-        my $der := pir::repr_clone__PP(self);
+        my $der := nqp::clone(self);
         nqp::bindattr($der, NQPRoutine, '$!do', $do);
         nqp::setcodeobj($do, $der);
 
@@ -48,6 +48,9 @@ my knowhow NQPRoutine {
     method !set_name($name) {
         nqp::setcodename($!do, $name);
     }
+    method name() {
+        nqp::getcodename($!do)
+    }
 }
 nqp::setinvokespec(NQPRoutine, NQPRoutine, '$!do', nqp::null);
 nqp::setboolspec(NQPRoutine, 5, nqp::null());
@@ -103,7 +106,7 @@ my knowhow NQPRegex {
         my $do  := nqp::clone($!do);
 
         # Clone and attach the code object.
-        my $der := pir::repr_clone__PP(self);
+        my $der := nqp::clone(self);
         nqp::bindattr($der, NQPRegex, '$!do', $do);
         nqp::setcodeobj($do, $der);
 
@@ -131,6 +134,9 @@ my knowhow NQPRegex {
             $ins
         }
     }
+    method name() {
+        nqp::getcodename($!do)
+    }
     method !set_name($name) {
         nqp::setcodename($!do, $name);
     }