Allow only [&foo] form, not [$foo]

Author: TimToady

STD.pm6

@@ -3230,7 +3230,7 @@ grammar P6 is STD {
             | :dba('bracketed infix') '[' ~ ']' <infix=.infixish('[]')>
                                                     { $<O> = $<infix><O>; $<sym> = $<infix><sym>; }
                     [ <!before '='> { self.worry("Useless use of [] around infix op") unless $*IN_META; } ]?
-            | :dba('infixed function') <?before '[' <[&\$]> <twigil>? [<alpha>|'('] > '[' ~ ']' <infix=.variable>
+            | :dba('infixed function') <?before '[&' <twigil>? [<alpha>|'('] > '[' ~ ']' <infix=.variable>
                                                     { $<O> = $<infix><O> // {%additive}; $<sym> = $<infix>; }
                                                     { $¢.check_variable($<infix>) }
             | <infix=infix_circumfix_meta_operator> { $<O> = $<infix><O>; $<sym> = $<infix><sym>; }

viv

@@ -1801,7 +1801,7 @@ EOFINAL
 	$posit = 1 unless @names;
 	my $pname = $pvar->{name}[0]{TEXT};
 	my $sigil = $pvar->{sigil}{SYM};
-	print YAML::XS::Dump($self) unless $sigil;
+#	print YAML::XS::Dump($self) unless $sigil;
 	my $twigil = $pvar->{twigil}[0] ? $pvar->{twigil}[0]{SYM} : '';
 	my ($dv) = $self->kids('default_value');