Register Capture type so we can use it in the binder.

src/Perl6/Metamodel/BOOTSTRAP.pm

@@ -572,9 +572,16 @@ my stub Hash metaclass Perl6::Metamodel::ClassHOW { ... };
 Hash.HOW.add_parent(Hash, EnumMap);
 Hash.HOW.add_attribute(Hash, BOOTSTRAPATTR.new(:name<$!descriptor>, :type(Mu)));
 
+# class Capture {
+#     ...
+# }
+my stub Capture metaclass Perl6::Metamodel::ClassHOW { ... };
+Capture.HOW.add_parent(Capture, Any);
+
 # Configure declarative listy/hashy types.
 pir::perl6_set_types_list_array_lol__vPP(List, ListIter, Array, LoL, Parcel);
 pir::perl6_set_types_enummap_hash__vPP(EnumMap, Hash);
+pir::perl6_set_type_capture__vP(Capture);
 
 # XXX Quick and dirty Bool. Probably done by EnumHOW in the end.
 my stub Bool metaclass Perl6::Metamodel::ClassHOW { ... };

src/binder/types.c

@@ -20,6 +20,7 @@ static PMC * Array      = NULL;
 static PMC * LoL        = NULL;
 static PMC * EnumMap    = NULL;
 static PMC * _Hash      = NULL;
+static PMC * Capture    = NULL;
 static PMC * BoolFalse  = NULL;
 static PMC * BoolTrue   = NULL;
 static PMC * PackageHOW = NULL;
@@ -61,6 +62,9 @@ PMC * Rakudo_types_enummap_get(void) { return EnumMap; }
 void Rakudo_types_hash_set(PMC * type) { _Hash = type; }
 PMC * Rakudo_types_hash_get(void) { return _Hash; }
 
+void Rakudo_types_capture_set(PMC * type) { Capture = type; }
+PMC * Rakudo_types_capture_get(void) { return Capture; }
+
 void Rakudo_types_bool_false_set(PMC * type) { BoolFalse = type; }
 PMC * Rakudo_types_bool_false_get(void) { return BoolFalse; }
 

src/binder/types.h

@@ -37,6 +37,9 @@ PMC * Rakudo_types_enummap_get(void);
 void Rakudo_types_hash_set(PMC * type);
 PMC * Rakudo_types_hash_get(void);
 
+void Rakudo_types_capture_set(PMC * type);
+PMC * Rakudo_types_capture_get(void);
+
 void Rakudo_types_bool_false_set(PMC * type);
 PMC * Rakudo_types_bool_false_get(void);
 

src/ops/perl6.ops

@@ -314,6 +314,20 @@ inline op perl6_set_types_enummap_hash(in PMC, in PMC) :base_core {
 }
 
 
+/*
+
+=item perl6_set_type_capture(in PMC)
+
+Sets the Capture type.
+
+=cut
+
+*/
+inline op perl6_set_type_capture(in PMC) :base_core {
+    Rakudo_types_capture_set($1);
+}
+
+
 /*
 
 =item perl6_set_type_packagehow(in PMC)