develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34390 - in trunk/languages/perl6: build src/builtins

From:
pmichaud
Date:
December 26, 2008 09:59
Subject:
[svn:parrot] r34390 - in trunk/languages/perl6: build src/builtins
Message ID:
20081226175911.CC231CBA12@x12.develooper.com
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About