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

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

From:
pmichaud
Date:
December 6, 2008 16:05
Subject:
[svn:parrot] r33581 - trunk/languages/perl6/src/parser
Message ID:
20081207000502.11CBCCB9AF@x12.develooper.com
Author: pmichaud
Date: Sat Dec  6 16:05:01 2008
New Revision: 33581

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

Log:
[rakudo]:  $tagsets is already an AST, no need to $(...) it again.


Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Sat Dec  6 16:05:01 2008
@@ -920,8 +920,8 @@
                         ##  get the names of the tagsets, if any, from the ast
                         my $tagsets := $( $aux<postcircumfix>[0] );
                         if $tagsets {
-                            my $tagsets_past := $( $tagsets );
-                            if         $tagsets_past.isa(PAST::Op)
+                            my $tagsets_past := $tagsets; 
+                            if  $tagsets_past.isa(PAST::Op)
                                     && $tagsets_past.pasttype() eq 'call' {
                                 for @( $tagsets_past ) {
                                     unless $_.isa(PAST::Val)



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