more pir:: to nqp:: rewrites

rakudo · Jun 22, 2011 · d92d750 · d92d750
1 parent a60c86a
commit d92d750
Show file tree

Hide file tree

Showing 5 changed files with 6 additions and 6 deletions.
diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
@@ -2242,7 +2242,7 @@ grammar Perl6::Grammar is HLL::Grammar {
             # Find opener and closer and parse an EXPR between them.
             # XXX One day semilist would be nice, but right now that
             # runs us into fun with terminators.
-            my @parts := pir::split__Pss(' ', $opname);
+            my @parts := nqp::split(' ', $opname);
             if +@parts != 2 {
                 pir::die("Unable to find starter and stopper from '$opname'");
             }

diff --git a/src/Perl6/SymbolTable.pm b/src/Perl6/SymbolTable.pm
@@ -463,7 +463,7 @@ class Perl6::SymbolTable is HLL::Compiler::SerializationContextBuilder {
                 $precomp := self.compile_in_context($code_past);
 
                 # Fix up Code object associations (including nested blocks).
-                my $num_subs := pir::elements__IP($precomp);
+                my $num_subs := nqp::elems($precomp);
                 my $i := 0;
                 while $i < $num_subs {
                     my $subid := $precomp[$i].get_subid();

diff --git a/src/old/core/Any-list.pm b/src/old/core/Any-list.pm
@@ -24,7 +24,7 @@ augment class Any {
     }
 
     our Str multi method join($separator = '') {
-        ~pir::join__SsP($separator, self.flat.eager);
+        ~nqp::join($separator, self.flat.eager);
     }
 
     multi method elems() {

diff --git a/src/old/core/EnumMap.pm b/src/old/core/EnumMap.pm
@@ -44,7 +44,7 @@ class EnumMap is Iterable does Associative {
     }
 
     method elems() {
-        pir::elements__IP($!storage)
+        nqp::elems($!storage)
     }
 
     method exists($key) {
@@ -82,7 +82,7 @@ class EnumMap is Iterable does Associative {
         gather {
             my $iter = pir::iter__PP($!storage);
             while pir::istrue__IP($iter) {
-                my $iter_item = pir::shift__PP($iter);
+                my $iter_item = nqp::shift($iter);
                 take Pair.new(key => ~$iter_item.key, value => $iter_item.value);
             }
         }

diff --git a/src/old/core/List.pm b/src/old/core/List.pm
@@ -17,7 +17,7 @@ augment class List does Positional {
         return False unless @indices;
         while @indices && @indices.shift -> $key {
             return False if $key < 0
-                || !pir::exists__IQi(self!fill($key+1), $key);
+                || !nqp::existspos(self!fill($key+1), $key);
         }
         True;
     }