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

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
 

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