[svn:parrot] r34073 - branches/main/languages/perl6/src/parser

[pmichaud]

Author: pmichaud
Date: Thu Dec 18 10:21:46 2008
New Revision: 34073

Modified:
   branches/main/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  .tailcall doesn't work well from :load, so don't use it.


Modified: branches/main/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/main/languages/perl6/src/parser/actions.pm (original)
+++ branches/main/languages/perl6/src/parser/actions.pm Thu Dec 18 10:21:46 2008
@@ -45,11 +45,12 @@
                 :inline( '.include "interpinfo.pasm"',
                          '$P0 = interpinfo .INTERPINFO_CURRENT_SUB',
                          '$P0 = $P0."get_outer"()',
-                         '.tailcall $P0()'
+                         '$P0()'
                 )
             )
         )
     );
+    $main.push( PAST::Stmts.new() );
 
     make $main;
 }