Add a couple of ops for checking if we have a VM list/hash.

src/Perl6/Actions.pm

@@ -16,6 +16,8 @@ INIT {
         attrinited   => 'repr_is_attr_initialized__IPPs',
 
         istype       => 'type_check__IPP',
+        islist       => 'perl6_is_list__IP',
+        ishash       => 'perl6_is_hash__IP',
         lcm_i        => 'lcm__Iii',
         gcd_i        => 'gcd__Iii',
         find_method  => 'find_method__PPs',

src/ops/perl6.ops

@@ -944,6 +944,34 @@ inline op perl6_current_args_rpa(out PMC) :base_core {
 }
 
 
+/*
+
+=item perl6_is_list(out INT, in PMC)
+
+Checks if the passed object is a RPA.
+
+=cut
+
+*/
+inline op perl6_is_list(out INT, in PMC) :base_core {
+    $1 = $2->vtable->base_type == enum_class_ResizablePMCArray;
+}
+
+
+/*
+
+=item perl6_is_hash(out INT, in PMC)
+
+Checks if the passed object is a (VM) hash.
+
+=cut
+
+*/
+inline op perl6_is_hash(out INT, in PMC) :base_core {
+    $1 = $2->vtable->base_type == enum_class_Hash;
+}
+
+
 /*
 
 =item perl6_parcel_from_rpa(out PMC, in PMC, in PMC)