Changeset 19153

Timestamp:

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

Author:

dlo

Message:

[kp6] fixed infix space problem

Location:

v6/v6-KindaPerl6

Files:

• compiled/perl5-kp6-mp6/lib/KindaPerl6/Visitor/Emit/Perl6.pm (modified) (1 diff)
• docs/FAQ.pod (modified) (1 diff)
• src/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} } ], ', ' ) . '))' ) ) ) ) );
 }
 

v6/v6-KindaPerl6/docs/FAQ.pod

@@ -121 +121 @@
 
  [kp6] I have refactored subroutine XXX for clarity and updated the documentation.
+
+=head3 Seeing an intermediate step.
+
+Sometimes you want to see how kp6 "saw" the code.  This is seen by running the
+code though AST backend.
+
+ perl script/kp6 -Cast -e ' "a" eq "b" '
 
 =head3 Cannot see the forest for the trees. / Boot strapping

v6/v6-KindaPerl6/src/KindaPerl6/Visitor/Emit/Perl6.pm

@@ -251 +251 @@
 class Apply {
     method emit_perl6 {
-        return '(' ~ $.code.emit_perl6 ~ ' (' ~ (@.arguments.>>emit_perl6).join(', ') ~ '))';
+        # WARNING: Putting white spaces in here, will mess up the subroutine calls
+        return '(' ~ $.code.emit_perl6 ~ '(' ~ (@.arguments.>>emit_perl6).join(', ') ~ '))';
     }
 }