Use nqp::setwho and nqp::newtype.

Raku · Jun 21, 2012 · bc64ed0 · bc64ed0
1 parent 46cf8f8
commit bc64ed0
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 13 deletions.
diff --git a/src/how/NQPClassHOW.pm b/src/how/NQPClassHOW.pm
@@ -71,9 +71,7 @@ knowhow NQPClassHOW {
     # to go with it, and return that.
     method new_type(:$name = '<anon>', :$repr = 'P6opaque') {
         my $metaclass := self.new(:name($name));
-        pir::set_who__0PP(
-            pir::repr_type_object_for__PPS($metaclass, $repr),
-            {});
+        nqp::setwho(nqp::newtype($metaclass, $repr), {});
     }
 
     method add_method($obj, $name, $code_obj) {

diff --git a/src/how/NQPConcreteRoleHOW.pm b/src/how/NQPConcreteRoleHOW.pm
@@ -51,7 +51,7 @@ knowhow NQPConcreteRoleHOW {
     # to go with it, and return that.
     method new_type(:$name = '<anon>', :$instance_of!) {
         my $metarole := self.new(:name($name), :instance_of($instance_of));
-        pir::repr_type_object_for__PPS($metarole, 'Uninstantiable');
+        nqp::newtype($metarole, 'Uninstantiable');
     }
 
     method add_method($obj, $name, $code_obj) {

diff --git a/src/how/NQPModuleHOW.pm b/src/how/NQPModuleHOW.pm
@@ -21,9 +21,7 @@ knowhow NQPModuleHOW {
     # to go with it, and return that.
     method new_type(:$name = '<anon>') {
         my $metaclass := self.new(:name($name));
-        pir::set_who__0PP(
-            pir::repr_type_object_for__PPS($metaclass, 'Uninstantiable'),
-            {});
+        nqp::setwho(nqp::newtype($metaclass, 'Uninstantiable'), {});
     }
 
     method add_method($obj, $name, $code_obj) {

diff --git a/src/how/NQPNativeHOW.pm b/src/how/NQPNativeHOW.pm
@@ -22,9 +22,7 @@ knowhow NQPNativeHOW {
     # XXX Should check that this is an inlineable REPR.
     method new_type(:$name = '<anon>', :$repr!) {
         my $metaclass := self.new(:name($name));
-        pir::set_who__0PP(
-            pir::repr_type_object_for__PPS($metaclass, $repr),
-            {});
+        nqp::setwho(nqp::newtype($metaclass, $repr), {});
     }
 
     method add_method($obj, $name, $code_obj) {

diff --git a/src/how/NQPParametricRoleHOW.pm b/src/how/NQPParametricRoleHOW.pm
@@ -50,9 +50,7 @@ knowhow NQPParametricRoleHOW {
     # to go with it, and return that.
     method new_type(:$name = '<anon>') {
         my $metarole := self.new(:name($name));
-        pir::set_who__0PP(
-            pir::repr_type_object_for__PPS($metarole, 'Uninstantiable'),
-            {});
+        nqp::setwho(nqp::newtype($metarole, 'Uninstantiable'), {});
     }
 
     method set_body_block($obj, $body_block) {