Fix another place Op was wrongly assumed.

rakudo · Jul 25, 2012 · 7efa992 · 7efa992
1 parent ba93c1d
commit 7efa992
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Perl6/Actions.pm b/src/Perl6/Actions.pm
@@ -3253,7 +3253,7 @@ class Perl6::Actions is HLL::Actions {
     }
 
     sub add_macro_arguments($expr, $ast_class, @argument_quasi_asts) {
-        if $expr.name eq '&infix:<,>' {
+        if nqp::istype($expr, QAST::Op) && $expr.name eq '&infix:<,>' {
             for $expr.list {
                 my $quasi_ast := $ast_class.new();
                 nqp::bindattr($quasi_ast, $ast_class, '$!past', $_);