[perl #80474] [PATCH] Fix RT #80256, Can't curry * !< $n in Rakudo

Fri, 10 Dec 2010 18:16:13 -0800 

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


http://irclog.perlgeek.de/perl6/2010-12-05#i_3059071
> <uasi> rakudo: say 1, 2 ... * > 3
> <p6eval> rakudo : OUTPUT«1234␤»
> <uasi> say 1, 2 ... * !< 3
> <uasi> rakudo: say 1, 2 ... * !< 3
> <p6eval> rakudo : OUTPUT«Can't take numeric value for object of type
> Whatever [...]
> <uasi> :/
> <masak> huh.
> * masak submits rakudobug
> <masak> must be some unfortunate combination of ! and operator currying.

This patch fixes that meta-infix currying problem.

Was:

    % perl6 -v

    This is Rakudo Perl 6, version 2010.11-15-gfedc117 built on parrot
2.10.1 RELEASE_2_10_1-679-g9bec614

    Copyright 2008-2010, The Perl Foundation

    % perl6
    > * R+ 42
    Can't take numeric value for object of type Whatever

Now:

    % perl6
    > * R+ 42
    _block89
    > (* R+ 42)(1)
    43
    > &infix:<+>(*, 42)
    Can't take numeric value for object of type Whatever

&infix:<+>(*, 42) doesn't autocurry as jnthn mentioned:

http://irclog.perlgeek.de/perl6/2010-12-06#i_3062969
> <masak> whoa! uasi++ seems to have fixed RT #80256: 
> http://twitter.com/uasi/status/11907116134563840
...
> <jnthn> masak: I fear it may end up auto-currying &infix:<+>(*, 42)

Hope this helps,
Tomoki Aonuma (uasi)

Attachment: whatever_curry.patch
Description: Binary data

Attachment: whatever.t.patch
Description: Binary data

Reply via email to