develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
jonathan
Date:
January 22, 2009 03:04
Subject:
[svn:parrot] r35878 - in trunk/languages/perl6: . src/parser
Message ID:
20090122110436.B58A4CB9AE@x12.develooper.com
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( $/ )
         );



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About