Harden a check.

rakudo · Jul 25, 2012 · 135013d · 135013d
1 parent a9dbdef
commit 135013d
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -3489,7 +3489,9 @@ class Perl6::Actions is HLL::Actions {
             # Make first pass over arguments, finding any duplicate named
             # arguments.
             my $expr := $<EXPR>.ast;
-            my @args := $expr.name eq '&infix:<,>' ?? $expr.list !! [$expr];
+            my @args := nqp::istype($expr, QAST::Op) && $expr.name eq '&infix:<,>'
+                ?? $expr.list
+                !! [$expr];
             my %named_counts;
             for @args {
                 if $_.isa(QAST::Op) && istype($_.returns, $Pair) {