On Sat Jul 24 02:08:56 2010, pmichaud wrote:
> Reopening ticket, the tests fail again after the latest changes to
> closures and switching the 'for' statement to use '.map'. There are
> other fixes that need to be made to .wrap, so I suspect this is related.
>
> Pm
Here's the current failure:
$ cat foo.p6
my @subs := (&greet,&meet);
for @subs -> $sub {
my $name = $sub.name;
say "Wrapping $name";
$sub.wrap({
say "Starting $name";
callsame;
say "Ending $name";
});
};
sub greet($person) { say "Hello, $person" };
sub meet($person) { say "I see $person here." };
meet("world");
greet("world")
$ ./perl6 foo.p6
Wrapping greet
Method 'wrap' not found for invocant of class 'Sub'
in block <anon> at foo:5
in method reify at src/gen/CORE.setting:4024
in method reify at src/gen/CORE.setting:3931
in method reify at src/gen/CORE.setting:3931
in method gimme at src/gen/CORE.setting:4288
in method eager at src/gen/CORE.setting:4263
in method eager at src/gen/CORE.setting:880
in sub eager at src/gen/CORE.setting:4521
in block <anon> at foo:2
in <anon> at foo:1
--
Will "Coke" Coleda
