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

[svn:parrot] r34338 - trunk/languages/perl6/src/classes

From:
pmichaud
Date:
December 24, 2008 08:38
Subject:
[svn:parrot] r34338 - trunk/languages/perl6/src/classes
Message ID:
20081224163809.65DE2CBA12@x12.develooper.com
Author: pmichaud
Date: Wed Dec 24 08:38:02 2008
New Revision: 34338

Modified:
   trunk/languages/perl6/src/classes/Pair.pir

Log:
[rakudo]:  Adjust Pair.perl .


Modified: trunk/languages/perl6/src/classes/Pair.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Pair.pir	(original)
+++ trunk/languages/perl6/src/classes/Pair.pir	Wed Dec 24 08:38:02 2008
@@ -140,10 +140,8 @@
 
     # build result
     .local string result
-    result = concat '(', $S0
-    result .= ' => '
+    result = concat $S0, ' => '
     result .= $S1
-    result .= ')'
     .return (result)
 .end
 



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