relax in_meta check so !~~~ is caught

TimToady · TimToady · commit e17ff6a846aa · 2012-11-17T11:43:10.000-08:00
diff --git a/STD.pm6 b/STD.pm6
@@ -3249,7 +3249,7 @@ grammar P6 is STD {
             | <infix=infix_prefix_meta_operator>    { $<O> = $<infix><O>; $<sym> = $<infix><sym>; }
             | <infix> ::                            { $<O> = $<infix><O>; $<sym> = $<infix><sym>; }
                 [
-                    <?{ !$in_meta }> <!before \s> <?before <prefix>\s> {
+                    <!before \s> <?before <prefix>\s> {
                         my $i = $<infix>.Str;
                         my $p = $<prefix>[0].Str;
                         $¢.worry("$i$p is not an infix operator (to suppress warning put space between infix $i and prefix $p)");

Original file line number	Diff line number	Diff line change
`@@ -3249,7 +3249,7 @@ grammar P6 is STD {`
`3249`	`3249`	`\| <infix=infix_prefix_meta_operator> { $<O> = $<infix><O>; $<sym> = $<infix><sym>; }`
`3250`	`3250`	`\| <infix> :: { $<O> = $<infix><O>; $<sym> = $<infix><sym>; }`
`3251`	`3251`	`[`
`3252`		`- <?{ !$in_meta }> <!before \s> <?before <prefix>\s> {`
	`3252`	`+ <!before \s> <?before <prefix>\s> {`
`3253`	`3253`	`my $i = $<infix>.Str;`
`3254`	`3254`	`my $p = $<prefix>[0].Str;`
`3255`	`3255`	`$¢.worry("$i$p is not an infix operator (to suppress warning put space between infix $i and prefix $p)");`