Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
- index 9e44a7b..fc6e9c1 100644
- --- a/src/Perl6/Actions.pm
- +++ b/src/Perl6/Actions.pm
- @@ -3541,7 +3541,8 @@ INIT {
- %not_curried{'WHERE'} := 2;
- }
- sub whatever_curry($/, $past, $upto_arity) {
- - if $past.isa(PAST::Op) && %not_curried{$past.name} != 2 && $past<pasttype> ne 'call' {
- + if $past.isa(PAST::Op) && %not_curried{$past.name} != 2
- + && ($past<pasttype> ne 'call' || pir::index($past.name, '&infix:') == 0) {
- if ($upto_arity >= 1 && (($past[0].returns eq 'Whatever' && !%not_curried{$past.name})
- || $past[0].returns eq 'WhateverCode'))
- || ($upto_arity == 2 && (($past[1].returns eq 'Whatever' && !%not_curried{$past.name})
Add Comment
Please, Sign In to add comment