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

…trees.
rakudo · Feb 8, 2010 · c5340f2 · c5340f2
1 parent 2d24344
commit c5340f2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -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;