# New Ticket Created by Alex Varyanick
# Please include the string: [perl #77036]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=77036 >
#git rev-parse HEAD
0e5edb5c5fb2c2a2011c5a41d0f5161bcd1f8885
11:22 < cono> rakudo: class E {has $.n is rw; has $.v is rw; method
Str{~self.v}}; my E $x .= new(:v(1)); $x.n = E.new(:v(2)); (gather {
my $i = $x; while $i.defined { take $i; $i = $i.n } }).join("|").say
11:22 <+p6eval> rakudo 6d3258: OUTPUT«Any()|Any()»
11:22 < cono> is it a bug/
11:22 < cono> rakudo: class E {has $.n is rw; has $.v is rw; method
Str{~self.v}}; my E $x .= new(:v(1)); $x.n = E.new(:v(2)); (gather {
my $i = $x; while $i.defined { take $i; $i = $i.n }
}).map({~$_}).join("|").say
11:22 <+p6eval> rakudo 6d3258: OUTPUT«1|2»
11:23 < pmichaud> cono: yes, it's likely a bug.
11:23 < pmichaud> actually, I might be able to fix it easily now.
11:23 < cono> should I submit?
11:23 < pmichaud> sure... it's likely the take() bug.
--
Varyanick I. Alex
icq: 102 575 440
skype: cono..
q...@cono.org.ua
