Include a '&' on operator names by default.

perl6 · Oct 31, 2009 · 2e786f4 · 2e786f4
1 parent d35a707
commit 2e786f4
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/HLL/Actions.pm b/src/HLL/Actions.pm
@@ -81,7 +81,7 @@ method EXPR($/, $key?) {
                 $S0 = downcase $S0
                 %r = box $S0
             } ~ ':<' ~ $<OPER><sym> ~ '>';
-            $past.name($name);
+            $past.name('&' ~ $name);
         }
     }
     if $key eq 'POSTFIX' { $past.unshift($/[0].ast); }

diff --git a/src/NQP/Actions.pm b/src/NQP/Actions.pm
@@ -481,7 +481,7 @@ method arglist($/) {
     my $past := PAST::Op.new( :pasttype('call'), :node($/) );
     if $<EXPR> {
         my $expr := $<EXPR>.ast;
-        if $expr.name eq 'infix:<,>' && !$expr.named {
+        if $expr.name eq '&infix:<,>' && !$expr.named {
             for $expr.list { $past.push($_); }
         }
         else { $past.push($expr); }