Some slight tweaks to code generation of is also classses and when no…

… Main is in effect.
rakudo · Feb 18, 2009 · a020241 · a020241
1 parent 75ea93f
commit a020241
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -30,6 +30,7 @@ method TOP($/) {
     our $?SUPPRESS_MAIN;
     my $main;
     if $?SUPPRESS_MAIN {
+        $past.push(PAST::Stmts.new());
         $main := $past;
     }
     else {
@@ -1757,7 +1758,7 @@ method package_def($/, $key) {
         $block.blocktype('immediate');
         $block.pirflags('');
     }
-    else {
+    elsif !$block<isalso> {
         $block[0].push( PAST::Op.new( :name('!meta_compose'), $?METACLASS) );
     }