Permalink
Browse files

Make sure handle_named_parameter doesn't blow up on literals in PAST …

…trees.
  • Loading branch information...
jnthn committed Feb 8, 2010
1 parent 2d24344 commit c5340f2fcafc369d48c7c49b316cb215cd472c0f
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Perl6/Actions.pm
View
@@ -1427,7 +1427,7 @@ method arglist($/) {
}
sub handle_named_parameter($arg) {
- if $arg.returns() eq 'Pair' {
+ if $arg ~~ PAST::Node && $arg.returns() eq 'Pair' {
my $result := $arg[2];
$result.named(~$arg[1].value());
$result;

0 comments on commit c5340f2

Please sign in to comment.