From @masak

<masak> perl6​: say .perl for (gather for 1, 2, 3 -> $a { for <a b c>
-> $b { take [$a, $b] } })
<p6eval> b 1b7dd1, niecza v10-43-gf5298c8​: OUTPUT«[1, "a"]␤[1,
"b"]␤[1, "c"]␤[2, "a"]␤[2, "b"]␤[2, "c"]␤[3, "a"]␤[3, "b"]␤[3, "c"]␤»
<p6eval> ..nom 3e66bd​:
OUTPUT«1␤"a"␤1␤"b"␤1␤"c"␤2␤"a"␤2␤"b"␤2␤"c"␤3␤"a"␤3␤"b"␤3␤"c"␤»
* masak submits rakudobug
<moritz> what's wrong, the .perl?
<moritz> nom​: say <a b>.perl
<p6eval> nom 3e66bd​: OUTPUT«("a", "b")␤»
<moritz> oh, it flattens
<masak> nom​: say [<a b>].perl
<p6eval> nom 3e66bd​: OUTPUT«["a", "b"]␤»
<masak> no, the problem isn't .perl, it seems, but &take

From @moritz

A test can already be found in S04-statements/gather.t

The RT System itself - Status changed from 'new' to 'open'

From @jnthn

On Thu Oct 13 06​:25​:35 2011, masak wrote​:

<masak> perl6​: say .perl for (gather for 1, 2, 3 -> $a { for <a b c>
-> $b { take [$a, $b] } })
<p6eval> b 1b7dd1, niecza v10-43-gf5298c8​: OUTPUT«[1, "a"]␤[1,
"b"]␤[1, "c"]␤[2, "a"]␤[2, "b"]␤[2, "c"]␤[3, "a"]␤[3, "b"]␤[3, "c"]␤»
<p6eval> ..nom 3e66bd​:
OUTPUT«1␤"a"␤1␤"b"␤1␤"c"␤2␤"a"␤2␤"b"␤2␤"c"␤3␤"a"␤3␤"b"␤3␤"c"␤»
* masak submits rakudobug
<moritz> what's wrong, the .perl?
<moritz> nom​: say <a b>.perl
<p6eval> nom 3e66bd​: OUTPUT«("a", "b")␤»
<moritz> oh, it flattens
<masak> nom​: say [<a b>].perl
<p6eval> nom 3e66bd​: OUTPUT«["a", "b"]␤»
<masak> no, the problem isn't .perl, it seems, but &take

Fixed and tested; resolving ticket.

/jnthn

@jnthn - Status changed from 'open' to 'resolved'