[svn:parrot] r39217 - trunk/compilers/nqp/src/Grammar

pmichaud at svn.parrot.org pmichaud at svn.parrot.org
Thu May 28 13:11:33 UTC 2009


Author: pmichaud
Date: Thu May 28 13:11:33 2009
New Revision: 39217
URL: https://trac.parrot.org/parrot/changeset/39217

Log:
[nqp]:  Some small cleanups to bacek++'s changes in r39216.

Modified:
   trunk/compilers/nqp/src/Grammar/Actions.pir

Modified: trunk/compilers/nqp/src/Grammar/Actions.pir
==============================================================================
--- trunk/compilers/nqp/src/Grammar/Actions.pir	Thu May 28 12:11:42 2009	(r39216)
+++ trunk/compilers/nqp/src/Grammar/Actions.pir	Thu May 28 13:11:33 2009	(r39217)
@@ -378,6 +378,7 @@
 ##        if $<declarator> eq 'method' {
 ##            $past.blocktype('method');
 ##            $past.push(PAST::Op.new('inline'=>'.lex 'self', self);
+##            $past.symbol('self', :scope('lexical'));
 ##        }
 ##        for $<signature>[0] {
 ##            my $parameter := $($_<parameter>);
@@ -404,6 +405,7 @@
     $P3 = get_hll_global ['PAST'], 'Op'
     $P4 = $P3.'new'('inline'=>'    .lex "self", self', 'pasttype'=>'inline')
     unshift past, $P4
+    past.'symbol'('self', 'scope'=>'lexical')
   add_signature:
     $P0 = match['signature']
     $P0 = $P0[0]
@@ -743,7 +745,7 @@
 
 ##    method noun($/, $key) {
 ##        if $key eq 'self' {
-##            make PAST::Var.new('name'=>'self', 'node'=>$/);
+##            make PAST::Var.new(:name('self'), :scope('lexical'), :node($/));
 ##        }
 ##        else {
 ##            make $($/{$key});


More information about the parrot-commits mailing list