Eradicated pir::does(...,'array'), replaced by nqp::islist

Author: lizmat

docs/pir2nqp.todo

@@ -25,15 +25,11 @@ pir::const::INTERPINFO_TOTAL_MEM_ALLOC
 pir::const::INTERPINFO_TOTAL_MEM_USED
 pir::const::INTERPINFO_TOTAL_PMCS
 
-can be done now by lizmat
-pir::get_who__PP         -> nqp::who
-pir::does
-   2nd = array then nqp::islist
-   2nd=hash then nqp::ishash
-
 after jnthn's toqast branch is merged
 nqp::defined      ->  nqp::isconcrete
 pir::defined__IP  ->  nqp::isconcrete
+pir::get_who__PP  ->  nqp::who
+pir::does         ->  2nd=hash then nqp::ishash
 pir::isa
   2nd arg = ResizablePMCArray, then nqp::islist
   2nd arg = hash then nqp::ishash

src/HLL/Actions.pm

@@ -7,7 +7,7 @@ class HLL::Actions {
     }
 
     method ints_to_string($ints) {
-        if pir::does($ints, 'array') {
+        if nqp::islist($ints) {
             my $result := '';
             for $ints {
                 $result := $result ~ nqp::chr($_.ast);

src/HLL/CommandLine.pm

@@ -109,7 +109,7 @@ class HLL::CommandLine::Result {
         # how I miss p6's Hash.push
 
         if nqp::existskey(%!options, $name) {
-            if pir::does(%!options{$name}, 'array') {
+            if nqp::islist(%!options{$name}) {
                 nqp::push(%!options{$name}, $value);
             } else {
                 %!options{$name} := [ %!options{$name}, $value ];

src/HLL/Compiler.pm

@@ -383,7 +383,7 @@ class HLL::Compiler {
     method evalfiles($files, *@args, *%adverbs) {
         my $target := nqp::lc(%adverbs<target>);
         my $encoding := %adverbs<encoding>;
-        my @files := pir::does($files, 'array') ?? $files !! [$files];
+        my @files := nqp::islist($files) ?? $files !! [$files];
         $!user_progname := nqp::join(',', @files);
         my @codes;
         for @files {

src/QRegex/Cursor.nqp

@@ -532,7 +532,7 @@ class NQPCursor does NQPCursorRole {
     }
 
     method !INTERPOLATE($var) {
-        if pir::does($var, 'array') {
+        if nqp::islist($var) {
             my $maxlen := -1;
             my $cur := self.'!cursor_start'();
             my $pos := nqp::getattr_i($cur, $?CLASS, '$!from');
@@ -573,7 +573,7 @@ class NQPCursor does NQPCursorRole {
     method !INTERPOLATE_REGEX($var) {
         unless pir::is_invokable__IP($var) {
             my $rxcompiler := pir::compreg__Ps('QRegex::P6Regex');
-            if pir::does($var, 'array') {
+            if nqp::islist($var) {
                 my $res := [];
                 for $var {
                     my $elem := $_;