[svn:parrot] r26704 - in trunk: compilers/imcc languages/perl6/src/parser

[infinoid]

Author: infinoid
Date: Wed Apr  2 09:27:48 2008
New Revision: 26704

Modified:
   trunk/compilers/imcc/pbc.c
   trunk/languages/perl6/src/parser/actions.pm

Log:
[imcc, raduko]
Minor fixups to pass t/codingstd/c_parens.t and t/codingstd/cuddled_else.t.


Modified: trunk/compilers/imcc/pbc.c
==============================================================================
--- trunk/compilers/imcc/pbc.c  (original)
+++ trunk/compilers/imcc/pbc.c  Wed Apr  2 09:27:48 2008
@@ -1617,7 +1617,7 @@
     if (n != ins->symreg_count - 1)
         IMCC_fatal(interp, 1, "syntax error: parameter count mismatch in '%s'"
                               " -- have %d, want %d",
-                              ins->opname, ins->symreg_count - 1, n );
+                              ins->opname, ins->symreg_count - 1, n);
 
     for (i = 0; i < n; ++i) {
         SymReg * const r   = ins->symregs[i + 1];

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Wed Apr  2 09:27:48 2008
@@ -233,7 +233,8 @@
             :node($/)
         );
         make $loop;
-    } else {
+    }
+    else {
         my $cond  := PAST::Val.new( :value( 1 ) );
         my $block := $( $<block> );
         $block.blocktype('immediate');