# New Ticket Created by "Carl Mäsak"
# Please include the string: [perl #116597]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=116597 >
<cog> rn: grammar G { token TOP() { <lit('a')> }; token lit($s) { $s
} }; say G.parse: 'a'
<p6eval> niecza v24-18-gaf64300: OUTPUT«#<match from(0) to(1) text(a)
pos([].list) named({"lit" => #<match from(0) to(1) text(a)
pos([].list) named({}.hash)>}.hash)>»
<p6eval> ..rakudo b3fc32: OUTPUT«｢a｣ lit => ｢a｣»
<cog> rn: grammar G { token TOP() { <lit 'a'> }; token lit($s) { $s
} }; say G.parse: 'a'
<p6eval> niecza v24-18-gaf64300: OUTPUT«#<match from(0) to(1) text(a)
pos([].list) named({"lit" => #<match from(0) to(1) text(a)
pos([].list) named({}.hash)>}.hash)>»
<p6eval> ..rakudo b3fc32: OUTPUT«Unmarshallable foreign language value
passed for parameter '$s' [...]
<cog> so that's a rakudo bug
* masak submits rakudobug
