don't set listop memo on terms

perl6 · May 20, 2013 · 52b6353 · 52b6353
1 parent 9906f18
commit 52b6353
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/STD.pm6 b/STD.pm6
@@ -4119,7 +4119,7 @@ grammar P6 is STD {
         <O(|%term)>
     }
 
-    token args ($istype = 0) {
+    token args ($isterm = 0) {
         :my $listopish = 0;
         :my $*GOAL ::= '';
         :my $*INVOCANT_OK = 1;
@@ -4128,8 +4128,9 @@ grammar P6 is STD {
     #    | :dba('argument list') '.(' ~ ')' <semiarglist>
         | :dba('argument list') '(' ~ ')' <semiarglist>
         | :dba('argument list') <.unsp> '(' ~ ')' <semiarglist>
-        |  { $listopish = 1; @*MEMOS[$¢.pos]<listop> = 1; }
-            [<?before \s> <!{ $istype }> <.ws> <!infixstopper> <arglist>]?
+        | <!{ $isterm }>
+            { $listopish = 1; @*MEMOS[$¢.pos]<listop> = 1; }
+            [<?before \s> <.ws> <!infixstopper> <arglist>]?
         ]
         $<invocant> = {$*INVOCANT_IS}