develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34328 - trunk/languages/lolcode/src/parser

From:
bernhard
Date:
December 24, 2008 03:32
Subject:
[svn:parrot] r34328 - trunk/languages/lolcode/src/parser
Message ID:
20081224113253.0FB22CBA12@x12.develooper.com
Author: bernhard
Date: Wed Dec 24 03:32:49 2008
New Revision: 34328

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

Log:
[lolcode] Remove two unneeded declarations of @?BLOCK


Modified: trunk/languages/lolcode/src/parser/actions.pm
==============================================================================
--- trunk/languages/lolcode/src/parser/actions.pm	(original)
+++ trunk/languages/lolcode/src/parser/actions.pm	Wed Dec 24 03:32:49 2008
@@ -42,7 +42,6 @@
 
 method declare($/) {
     our $?BLOCK;
-    our @?BLOCK;
 
     my $name := ~$<variable><identifier>;
 
@@ -104,7 +103,6 @@
         $block.blocktype('declaration');
         $?BLOCK.symbol(~$<variable><identifier>, :arity($block.arity()));
 
-
         my $it := PAST::Var.new( :name( 'IT' ), :scope('lexical'), :viviself('Undef'), :isdecl(1));
         $block[1].unshift($it);
 
@@ -359,7 +357,6 @@
     }
     else {
         our $?BLOCK;
-        our @?BLOCK;
 
         my $var := PAST::Var.new( :name( $<identifier> ),
                             :scope('lexical'),



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