Permalink
Browse files

Tweak interesting expression analysis.

  • Loading branch information...
jnthn committed Aug 21, 2012
1 parent 4901a8b commit e4f232586582310333f94118b8b0b0f1f9f507e7
Showing with 3 additions and 2 deletions.
  1. +3 −2 bin/perl6-debug.nqp
View
@@ -83,7 +83,8 @@ class Perl6::HookActions is Perl6::Actions {
my %uninteresting := nqp::hash(
'package_declarator', 1,
'routine_declarator', 1,
- 'multi_declarator', 1
+ 'multi_declarator', 1,
+ 'type_declarator', 1
);
sub interesting_expr($e) {
my $accept := 1;
@@ -96,7 +97,7 @@ class Perl6::HookActions is Perl6::Actions {
$accept := 0;
last;
}
- if $_.key eq 'type_declarator' {
+ if $_.key eq 'circumfix' && $e<circumfix><pblock> {
$accept := 0;
last;
}

0 comments on commit e4f2325

Please sign in to comment.