Skip to content

Commit

Permalink
Replace the elegant List.perl implementation that trips up ng somehow…
Browse files Browse the repository at this point in the history
… with an ugly one that works.
  • Loading branch information
colomon committed Dec 7, 2009
1 parent 77bb074 commit 698534c
Showing 1 changed file with 7 additions and 1 deletion.
8 changes: 7 additions & 1 deletion src/core/List.pm
@@ -1,6 +1,12 @@
augment class List {
method perl() {
'(' ~ self.map({ $_.perl }).join(', ') ~ ')';
# '(' ~ self.map({ $_.perl }).join(', ') ~ ')';
my $result = "(";
for self -> $x {
$result ~= ", " if $result.chars > 1;
$result ~= $x.perl;
}
return $result ~ ")";
}
}

Expand Down

0 comments on commit 698534c

Please sign in to comment.