# New Ticket Created by  "Carl Mäsak" 
# Please include the string:  [perl #107236]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=107236 >


<thou> are grammars known broken in current nom? e.g. this works in
rakudo-ng and not in rakudo-nom, for me:
https://gist.github.com/1529700
<benabik> It seems to work if I set $/ to the return value of parse
<benabik> Perhaps there's a bug with $/ ?
<masak> yes, seems that way.
<masak> all the .parse calls come out as True in nom.
<masak> nom: grammar G { rule TOP { a } }; say so G.parse("a"); say so
$/; say $/.perl
<p6eval> nom a9bead: OUTPUT«Bool::True␤Bool::False␤Any␤»
* masak submits rakudobug
<masak> benabik++
<masak> b: grammar G { rule TOP { a } }; say so G.parse("a"); say so
$/; say $/.perl
<p6eval> b 1b7dd1: OUTPUT«Bool::True␤Bool::True␤Match.new(␤ from =>
0,␤ orig => "a",␤ to   => 1,␤)␤»

Reply via email to