A type declared in BOOTSTRAP should have its attributes set up there …

…also; Capture broke this rule, which caused issues.
rakudo · Feb 26, 2012 · 854d464 · 854d464
1 parent d3bd66a
commit 854d464
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/src/Perl6/Metamodel/BOOTSTRAP.pm b/src/Perl6/Metamodel/BOOTSTRAP.pm
@@ -717,7 +717,9 @@ BEGIN {
     #     ...
     # }
     Capture.HOW.add_parent(Capture, Any);
-
+    Capture.HOW.add_attribute(Capture, BOOTSTRAPATTR.new(:name<$!list>, :type(Mu), :package(Capture)));
+    Capture.HOW.add_attribute(Capture, BOOTSTRAPATTR.new(:name<$!hash>, :type(Mu), :package(Capture)));
+
     # class Bool is Cool {
     #     has int $!value;
     #     ...

diff --git a/src/core/Capture.pm b/src/core/Capture.pm
@@ -1,7 +1,4 @@
 my class Capture {
-    has Mu $!list;
-    has Mu $!hash;
-
     submethod BUILD(:@list, :%hash) {
         nqp::bindattr(self, Capture, '$!list',
             nqp::getattr(nqp::p6decont(@list.Parcel), Parcel, '$!storage')