pir::time__N to nqp::time_n

Raku · May 30, 2012 · 881c8d1 · 881c8d1
1 parent 5f0abdf
commit 881c8d1
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/examples/fib.nqp b/examples/fib.nqp
@@ -6,9 +6,9 @@ sub fib($n) {
 
 my $N := 29;
 
-my $t0 := pir::time__N();
+my $t0 := nqp::time_n();
 my $z  := fib($N);
-my $t1 := pir::time__N();
+my $t1 := nqp::time_n();
 
 pir::say("fib($N) = " ~ fib($N));
 pir::say("time    = " ~ ($t1-$t0));
diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
@@ -434,9 +434,9 @@ class HLL::Compiler {
         my $result := $source;
         my $stderr := pir::getinterp().stderr_handle;
         for self.stages() {
-            my $timestamp := pir::time__N();
+            my $timestamp := nqp::time_n();
             $result := self."$_"($result, |%adverbs);
-            my $diff := pir::time__N() - $timestamp;
+            my $diff := nqp::time_n() - $timestamp;
             if %adverbs<stagestats> {
                 my $difffmt := pir::sprintf__SsP("%.3f", [$diff]);
                 $stderr.print("Stage $_: $difffmt\n");

diff --git a/src/NQP/Grammar.pm b/src/NQP/Grammar.pm
@@ -22,7 +22,7 @@ grammar NQP::Grammar is HLL::Grammar {
         my $source_id := nqp::sha1(nqp::istype(self, NQPCursor) ??
                     nqp::getattr_s(self, NQPCursor, '$!target') !!
                     nqp::getattr(self, Regex::Cursor, '$!target')) ~
-            '-' ~ ~pir::time__N();
+            '-' ~ ~nqp::time_n();
         my $*W := nqp::isnull($file) ??
             NQP::World.new(:handle($source_id)) !!
             NQP::World.new(:handle($source_id), :description($file));