Using take on a listy expression doesn't take each element of that list

[p6rt]

Migrated from rt.perl.org#125401 (status was 'resolved')

Searchable as RT125401$

[p6rt]

From @hoelzro

See the attached test file; for example​:

  my @​result = gather { take 'foo=bar'.split('=') };

results in an empty array, when it should result in an array with 'foo' and 'bar' as its contents.

[p6rt]

From @hoelzro

test.p6

[p6rt]

From @usev6

This now fails with X​::Seq​::Consumed​:

$ perl6-m -e 'my @​result = gather { take "foo=bar".split("=") }; say @​result'
This Seq has already been iterated, and its values consumed
  in block <unit> at -e​:1

Adding a 'flat' gives the expected result, though​:

$ perl6-m -e 'my @​result = flat gather { take "foo=bar".split("=") }; say @​result.perl'
["foo", "bar"]

$ perl6-m -e 'my @​result = gather { take "foo=bar".split("=") }.flat; say @​result.perl'
["foo", "bar"]

Since this behaviour looks good to me, I added a test to S04-statements/gather.t with commit Raku/roast@de87d7958b. Also, I'm closing this ticket as 'resolved'.

[p6rt]

From @usev6

This now fails with X​::Seq​::Consumed​:

$ perl6-m -e 'my @​result = gather { take "foo=bar".split("=") }; say @​result'
This Seq has already been iterated, and its values consumed
  in block <unit> at -e​:1

Adding a 'flat' gives the expected result, though​:

$ perl6-m -e 'my @​result = flat gather { take "foo=bar".split("=") }; say @​result.perl'
["foo", "bar"]

$ perl6-m -e 'my @​result = gather { take "foo=bar".split("=") }.flat; say @​result.perl'
["foo", "bar"]

Since this behaviour looks good to me, I added a test to S04-statements/gather.t with commit Raku/roast@de87d7958b. Also, I'm closing this ticket as 'resolved'.

[p6rt]

@usev6 - Status changed from 'new' to 'resolved'