Now fixed in 9e2b9ad:
$ cat 66280
for 1,3 -> $i {
for $i..4 -> $j { say "$j,$i" };
$i.say;
}
$ ./perl6 66280
1,1
2,1
3,1
4,1
1
3,3
4,3
3
$
Test added to range.t. Closing ticket, thanks!
Pm
On Wed Jun 03 06:08:46 2009, haakonsk wrote:
> This doesn't work:
> grammar A { rule TOP { 'a' ' b' {*} } }; my $m = A.parse('a b'); say $/;
> Result: Empty string
> Expected result: "a b"
Rakudo is correct here.
Whitespace in rules is metasyntactic -- it gets replaced by <.ws>.
So, the above r
# New Ticket Created by Håkon Skaarud Karlsen
# Please include the string: [perl #66250]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=66250 >
This works:
grammar A { rule TOP { 'a ' 'b' {*} } }; my $m = A.parse('a b');
Pm (>):
> I don't know if this is more along the lines of what you were looking
> for. If so, close the ticket, if not, tell us what you expect. :-)
Well, I have no idea what to expect either, but issue I submitted the
ticket for has been fixed, and this .HOW.say things seems to be a very
differ
# New Ticket Created by Chris Fields
# Please include the string: [perl #66280]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=66280 >
This is a nasty one. Using a Range with a lexical in an inner for
block with nested p
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #66270]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=66270 >
rakudo: my $match = Perl6::Grammar.parse("say ",
:action(Perl6::Grammar::Actions.new))
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #66272]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=66272 >
rakudo: sub infix:(*...@a) is assoc('list') { [*] @a
}; say 7 !+ 6 !+ 10
rakudo 77db80
# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #66252]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=66252 >
rakudo: my $x = "test"; given $x { say $_; m/(e.)/; say $/ }
rakudo c907d3: OUTPUT«
