Changeset 19153 for v6/v6-KindaPerl6/compiled/perl5-kp6-mp6/lib/KindaPerl6/Visitor/Emit/Perl6.pm

Timestamp:

12/10/07 20:04:18 (12 months ago)

Author:

dlo

Message:

[kp6] fixed infix space problem

Files:

• v6/v6-KindaPerl6/compiled/perl5-kp6-mp6/lib/KindaPerl6/Visitor/Emit/Perl6.pm (modified) (1 diff)

v6/v6-KindaPerl6/compiled/perl5-kp6-mp6/lib/KindaPerl6/Visitor/Emit/Perl6.pm

@@ -319 +319 @@
     my $List__ = \@_;
     do { [] };
-    return ( ( '(' . ( $self->{code}->emit_perl6() . ( ' (' . ( Main::join( [ map { $_->emit_perl6() } @{ $self->{arguments} } ], ', ' ) . '))' ) ) ) ) );
+    return ( ( '(' . ( $self->{code}->emit_perl6() . ( '(' . ( Main::join( [ map { $_->emit_perl6() } @{ $self->{arguments} } ], ', ' ) . '))' ) ) ) ) );
 }