# New Ticket Created by Moritz Lenz
# Please include the string: [perl #78510]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=78510 >
01:31 <+p6eval> rakudo d35769: OUTPUT«"a" => 1»
01:32 < moritz_> rakudo: class A { method TOP($/) { make ( a => 1, b =>
2 ).hash } }; grammar B { token TOP { ^. } }; say B.parse('x',
:actions(A.new)).ast.perl
01:32 <+p6eval> rakudo d35769: OUTPUT«("a" => 1, "b" => 2)»
The result should be the hash that the (a => 1, b => 2).hash generated,
instead it's just a list of of pairs.
Adding a $/.perl shows that it's the make() step that misbehaves, not
the retrieval via .ast:
01:31 < moritz_> rakudo: class A { method TOP($/) { make ( a => 1
).hash; say $/.perl } }; grammar B { token TOP { ^. } }; say
B.parse('x', :actions(A.new)).ast.perl
01:31 <+p6eval> rakudo d35769: OUTPUT«Match.new( ast => "a" => 1,
from => 0, orig => "x", to => 1,)"a" => 1»
