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

[svn:parrot] r35222 - branches/rvar2/languages/perl6/src/parser

From:
pmichaud
Date:
January 8, 2009 12:55
Subject:
[svn:parrot] r35222 - branches/rvar2/languages/perl6/src/parser
Message ID:
20090108205512.87838CB9F9@x12.develooper.com
Author: pmichaud
Date: Thu Jan  8 12:55:08 2009
New Revision: 35222

Modified:
   branches/rvar2/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:  Bind invocants directly to self.


Modified: branches/rvar2/languages/perl6/src/parser/actions.pm
==============================================================================
--- branches/rvar2/languages/perl6/src/parser/actions.pm	(original)
+++ branches/rvar2/languages/perl6/src/parser/actions.pm	Thu Jan  8 12:55:08 2009
@@ -987,11 +987,9 @@
                     $sigparam.push(PAST::Val.new( :value(1), :named('invocant')));
                     $var.scope('lexical');
                     $var.isdecl(1);
-                    $var := PAST::Op.new(
-                        :pasttype('bind'),
-                        $var,
+                    $var.viviself( 
                         PAST::Var.new( :name('self'), :scope('register') )
-                    );
+                    )
                 }
                 else {
                     $/.panic("Can only use : separator to denote invocant after first parameter.");



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