Skip to content
Browse files

Bump NQP_REVISION; use new nqp:: ops.

  • Loading branch information...
1 parent 5e7a2bb commit e9e1b5d9625d400453b922aca36417e96c040945 @jnthn jnthn committed Apr 20, 2013
View
2 src/Perl6/Metamodel/CurriedRoleHOW.nqp
@@ -49,7 +49,7 @@ class Perl6::Metamodel::CurriedRoleHOW
my $meta := self.new(:curried_role($curried_role), :pos_args(@pos_args),
:named_args(%named_args));
my $type := nqp::settypehll(nqp::newtype($meta, 'Uninstantiable'), 'perl6');
- pir::stable_set_type_check_mode__0PI($type, 2)
+ nqp::settypecheckmode($type, 2)
}
method instantiate_generic($obj, $type_env) {
View
2 src/Perl6/Metamodel/SubsetHOW.nqp
@@ -26,7 +26,7 @@ class Perl6::Metamodel::SubsetHOW
my $metasubset := self.new(:refinee($refinee), :refinement($refinement));
my $type := nqp::settypehll(nqp::newtype($metasubset, 'Uninstantiable'), 'perl6');
$metasubset.set_name($type, $name);
- pir::stable_set_type_check_mode__0PI($type, 2)
+ nqp::settypecheckmode($type, 2)
}
method set_of($obj, $refinee) {
View
2 src/Perl6/ModuleLoader.nqp
@@ -1,4 +1,4 @@
-my $DEBUG := +nqp::atkey(pir::new__Ps('Env'), 'RAKUDO_MODULE_DEBUG');
+my $DEBUG := +nqp::atkey(nqp::getenvhash(), 'RAKUDO_MODULE_DEBUG');
sub DEBUG(*@strs) {
my $err := nqp::getstderr();
$err.print("MODULE_DEBUG: ");
View
2 src/core/terms.pm
@@ -8,7 +8,7 @@ sub term:<time>() { nqp::p6box_i(nqp::time_i()) }
$PROCESS::ARGFILES = IO::ArgFiles.new(:args(@ARGS));
my %ENV;
- my Mu $env := pir::new__Ps('Env');
+ my Mu $env := nqp::getenvhash();
my Mu $enviter := nqp::iterator($env);
my $key;
while $enviter {
View
2 tools/build/NQP_REVISION
@@ -1 +1 @@
-2013.04-52-ge93a51d
+2013.04-54-gbfb3669

0 comments on commit e9e1b5d

Please sign in to comment.
Something went wrong with that request. Please try again.