[svn:parrot] r29884 - trunk/languages/perl6/src/parser

[particle]

Author: particle
Date: Wed Jul 30 12:42:24 2008
New Revision: 29884

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo] small refactor for clarity

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Wed Jul 30 12:42:24 2008
@@ -87,6 +87,7 @@
         if $expr.WHAT() eq 'Block' && !$expr.blocktype() {
             $expr.blocktype('immediate');
         }
+
         if $key eq 'statement_mod_cond' {
             $past := $( $<statement_mod_cond> );
             $past.push( $expr );
@@ -96,7 +97,7 @@
                 $<statement_mod_loop> := $<sml>[0];
             }
         }
-        if $key eq 'statement_mod_loop' {
+        elsif $key eq 'statement_mod_loop' {
             my $mod := $( $<statement_mod_loop> );
             if $<statement_mod_loop><sym> eq 'for' {
                 my $loop :=  PAST::Block.new(
@@ -390,8 +391,8 @@
     if $sym eq 'do' {
         # fall through, just use the statement itself
     }
-    ## after the code in the try block is executed, bind $! to Failure,
-    ## and set up the code to catch an exception, in case one is thrown
+    ##  after the code in the try block is executed, bind $! to Failure,
+    ##  and set up the code to catch an exception, in case one is thrown
     elsif $sym eq 'try' {
         $past := PAST::Op.new( $past, :pasttype('try') );