Unbust Capture.BUILD on Parrot.

rakudo · Jan 16, 2014 · 1f34bcd · 1f34bcd
1 parent 6f86d86
commit 1f34bcd
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/core/Capture.pm b/src/core/Capture.pm
@@ -7,9 +7,8 @@ my class Capture { # declared in BOOTSTRAP
         nqp::bindattr(self, Capture, '$!list',
             nqp::getattr(nqp::decont(@list.Parcel), Parcel, '$!storage')
         );
-        nqp::bindattr(self, Capture, '$!hash',
-            nqp::defor(nqp::getattr(nqp::decont(%hash), EnumMap, '$!storage'), nqp::hash())
-        );
+        my Mu $hs := nqp::getattr(nqp::decont(%hash), EnumMap, '$!storage');
+        nqp::bindattr(self, Capture, '$!hash', nqp::ishash($hs) ?? $hs !! nqp::hash());
         1;
     }