Permalink
Browse files

Fix Parcel.Capture.

  • Loading branch information...
1 parent 4472ab8 commit 855106bb2b0df3dee7424271890c1a7c7d691dba @jnthn jnthn committed Aug 5, 2011
Showing with 5 additions and 1 deletion.
  1. +5 −1 src/core/Parcel.pm
View
@@ -7,7 +7,11 @@ my class Parcel does Positional {
multi method Str(Parcel:D:) { self.flat.Str }
multi method ACCEPTS(Parcel:D: $topic) { self.list.ACCEPTS($topic) }
- method Capture() { self } # XXX CHEAT CHEAT CHEAT
+ method Capture() {
+ my $cap := nqp::create(Capture);
+ nqp::bindattr($cap, Capture, '$!list', $!storage);
+ $cap
+ }
method flat() {
nqp::p6list(nqp::clone($!storage), List, Bool::True)

0 comments on commit 855106b

Please sign in to comment.