Skip to content

Commit 52b6353

Browse files
committed
don't set listop memo on terms
1 parent 9906f18 commit 52b6353

File tree

1 file changed

+4
-3
lines changed

1 file changed

+4
-3
lines changed

STD.pm6

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -4119,7 +4119,7 @@ grammar P6 is STD {
41194119
<O(|%term)>
41204120
}
41214121

4122-
token args ($istype = 0) {
4122+
token args ($isterm = 0) {
41234123
:my $listopish = 0;
41244124
:my $*GOAL ::= '';
41254125
:my $*INVOCANT_OK = 1;
@@ -4128,8 +4128,9 @@ grammar P6 is STD {
41284128
# | :dba('argument list') '.(' ~ ')' <semiarglist>
41294129
| :dba('argument list') '(' ~ ')' <semiarglist>
41304130
| :dba('argument list') <.unsp> '(' ~ ')' <semiarglist>
4131-
| { $listopish = 1; @*MEMOS[$¢.pos]<listop> = 1; }
4132-
[<?before \s> <!{ $istype }> <.ws> <!infixstopper> <arglist>]?
4131+
| <!{ $isterm }>
4132+
{ $listopish = 1; @*MEMOS[$¢.pos]<listop> = 1; }
4133+
[<?before \s> <.ws> <!infixstopper> <arglist>]?
41334134
]
41344135
$<invocant> = {$*INVOCANT_IS}
41354136

0 commit comments

Comments
 (0)