Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Packages (roles aside) should have immediate blocks.

  • Loading branch information...
commit dc580c1ee3ca625b871a2e30cf03afee76616ca9 1 parent 61b9be5
Jonathan Worthington authored May 26, 2011

Showing 1 changed file with 2 additions and 0 deletions. Show diff stats Hide diff stats

  1. 2  src/Perl6/Actions.pm
2  src/Perl6/Actions.pm
@@ -879,6 +879,7 @@ class Perl6::Actions is HLL::Actions {
879 879
             $block.push($<statementlist>.ast);
880 880
             $block.node($/);
881 881
         }
  882
+        $block.blocktype('immediate');
882 883
         
883 884
         # If it's a stub, add it to the "must compose at some point" list,
884 885
         # then just evaluate to the type object. Don't need to do any more
@@ -897,6 +898,7 @@ class Perl6::Actions is HLL::Actions {
897 898
         }
898 899
         elsif $*PKGDECL eq 'role' {
899 900
             $*ST.install_lexical_symbol($block, '$?ROLE', $*PACKAGE);
  901
+            $block.blocktype('declaration');
900 902
         }
901 903
         
902 904
         # Compose.

0 notes on commit dc580c1

Please sign in to comment.
Something went wrong with that request. Please try again.