Replaced pir::repr_defined__IP by nqp::isconcrete

rakudo · May 30, 2012 · cbc73a0 · cbc73a0
1 parent a690c80
commit cbc73a0
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/src/Perl6/Metamodel/CurriedRoleHOW.pm b/src/Perl6/Metamodel/CurriedRoleHOW.pm
@@ -26,7 +26,7 @@ class Perl6::Metamodel::CurriedRoleHOW
     my $archetypes_g := Perl6::Metamodel::Archetypes.new( :composable(1), :inheritalizable(1), :parametric(1), :generic(1) );
     my $archetypes_ng := Perl6::Metamodel::Archetypes.new( :nominal(1), :composable(1), :inheritalizable(1), :parametric(1) );
     method archetypes() {
-        if pir::repr_defined__IP(self) {
+        if nqp::isconcrete(self) {
             for @!pos_args {
                 if $_.HOW.archetypes.generic {
                     return $archetypes_g;

diff --git a/src/core/Failure.pm b/src/core/Failure.pm
@@ -18,7 +18,7 @@ my class Failure {
     # but obscure problems prevent us from making Mu.defined
     # a multi. See http://irclog.perlgeek.de/perl6/2011-06-28#i_4016747
     method defined() {
-        $!handled =1 if pir::repr_defined__IP(self);
+        $!handled =1 if nqp::isconcrete(self);
         Bool::False;
     }
     multi method Bool(Failure:D:) { $!handled = 1; Bool::False; }

diff --git a/src/core/Mu.pm b/src/core/Mu.pm
@@ -39,7 +39,7 @@ my class Mu {
     method not() { self ?? False !! True }
 
     method defined() {
-        nqp::p6bool(pir::repr_defined__IP(self))
+        nqp::p6bool(nqp::isconcrete(self))
     }
 
     proto method new(|$) { * }