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

[svn:parrot] r33741 - trunk/languages/perl6/src/parser

From:
pmichaud
Date:
December 9, 2008 21:58
Subject:
[svn:parrot] r33741 - trunk/languages/perl6/src/parser
Message ID:
20081210055813.18140CB9AF@x12.develooper.com
Author: pmichaud
Date: Tue Dec  9 21:58:11 2008
New Revision: 33741

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

Log:
[rakudo]: List assignment on my/our declarations works.


Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Tue Dec  9 21:58:11 2008
@@ -2330,7 +2330,7 @@
         # the declaration evaluate to the signature object, thus allowing an
         # assignment to it.
         my @declare := sig_extract_declarables($/, $past);
-        $past := PAST::Stmts.new($past);
+        $past := PAST::Op.new(:name('list'), :node($/) );
         for @declare {
             # Work out sigil and twigil.
             my $sigil := substr($_, 0, 1);
@@ -2354,7 +2354,7 @@
                 else {
                     $scope := 'package';
                 }
-                $past.unshift(PAST::Var.new(
+                $past.push(PAST::Var.new(
                     :name($_),
                     :isdecl(1),
                     :scope($scope),



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