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)
