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
