Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit d96f25c73455088a8c5562d6e473e2005e596b5f 1 parent 02fbd65
@TimToady TimToady authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  STD.pm6
  2. +1 −1  viv
View
2  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>; }
View
2  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');
Please sign in to comment.
Something went wrong with that request. Please try again.