Author: pmichaud
Date: Fri Dec 26 09:59:11 2008
New Revision: 34390
Modified:
trunk/languages/perl6/build/gen_junction_pir.pl
trunk/languages/perl6/src/builtins/cmp.pir
Log:
[rakudo]: Make more comparison infixes "junction aware" (RT #61692)
Modified: trunk/languages/perl6/build/gen_junction_pir.pl
==============================================================================
--- trunk/languages/perl6/build/gen_junction_pir.pl (original)
+++ trunk/languages/perl6/build/gen_junction_pir.pl Fri Dec 26 09:59:11 2008
@@ -11,6 +11,7 @@
infix:+ infix:-
infix:== infix:!= infix:< infix:> infix:<= infix:>=
infix:eq infix:ne infix:lt infix:gt infix:le infix:ge
+ infix:<=> infix:leg infix:cmp infix:eqv infix:=== infix:=:=
);
my @unary = qw(
Modified: trunk/languages/perl6/src/builtins/cmp.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/cmp.pir (original)
+++ trunk/languages/perl6/src/builtins/cmp.pir Fri Dec 26 09:59:11 2008
@@ -150,7 +150,7 @@
.end
-.sub 'infix:leg'
+.sub 'infix:leg' :multi(_,_)
.param string a
.param string b
$I0 = cmp a, b
