[svn:parrot] r35878 - in trunk/languages/perl6: . src/parser

[jonathan]

Author: jonathan
Date: Thu Jan 22 03:04:34 2009
New Revision: 35878

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

Log:
[rakudo] Remove unused @?PACKAGE and $?NS (we init the first and never use it, 
then use the second but never init it, thus I guess it was useless).

Modified: trunk/languages/perl6/perl6.pir
==============================================================================
--- trunk/languages/perl6/perl6.pir     (original)
+++ trunk/languages/perl6/perl6.pir     Thu Jan 22 03:04:34 2009
@@ -91,11 +91,6 @@
     $P0 = new ['List']
     set_hll_global ['Perl6';'Grammar';'Actions'], '@?BLOCK', $P0
 
-    ## create a list for holding the stack of nested packages
-    ## (that may be roles, modules, classes or grammars).
-    $P0 = new 'List'
-    set_hll_global ['Perl6';'Grammar';'Actions'], '@?PACKAGE', $P0
-
     ## create a list for holding the stack of nested package
     ## declarators
     $P0 = new 'List'

Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Thu Jan 22 03:04:34 2009
@@ -2194,11 +2194,9 @@
         }
     }
     elsif $key eq 'quote_regex' {
-        our $?NS;
         $past := PAST::Block.new(
             $<quote_regex>,
             :compiler('PGE::Perl6Regex'),
-            :namespace(Perl6::Compiler.parse_name( $?NS )),
             :blocktype('declaration'),
             :node( $/ )
         );