[perl #112654] [BUG] Simple gather loop flusters Rakudo

[Solomon Foster]

# New Ticket Created by Solomon Foster
# Please include the string: [perl #112654]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=112654 >


colomon: r: sub mcf() { gather loop { take 1; last; }; }; say mcf().perl
p6eval: rakudo dda5b0: OUTPUT«Method 'eager' not found for invocant of
class 'Integer'␤ in sub coro at src/gen/CORE.setting:4926␤ in method
reify at src/gen/CORE.setting:4907␤ in method reify at
src/gen/CORE.setting:4678␤ in method gimme at
src/gen/CORE.setting:5065␤ in method perl at src/…

--
Solomon Foster: col...@gmail.com
HarmonyWare, Inc: http://www.harmonyware.com

[Patrick R. Michaud]

On Fri, Apr 27, 2012 at 07:59:22PM -0700, Solomon Foster wrote:
> colomon: r: sub mcf() { gather loop { take 1; last; }; }; say mcf().perl
> p6eval: rakudo dda5b0: OUTPUT«Method 'eager' not found for invocant of
> class 'Integer'␤ in sub coro at src/gen/CORE.setting:4926␤ in method
> reify at src/gen/CORE.setting:4907␤ in method reify at
> src/gen/CORE.setting:4678␤ in method gimme at
> src/gen/CORE.setting:5065␤ in method perl at src/…

The problem was actually with the 'loop' statement, not the 'gather';
the 'loop' statement was returning a Parrot Integer 1. Notably
the gather statement works fine if 'loop' is replaced with 'while 1'.

Now fixed in a25e7d1, needs spectests to close ticket.

Pm