make() with Hash argument sets $/.ast to pairlist

[p6rt]

Migrated from rt.perl.org#78510 (status was 'resolved')

Searchable as RT78510$

[p6rt]

From @moritz

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␤»

[p6rt]

From @moritz

works fine now, and tested in S05-grammar/action-stubs.t.

[p6rt]

@moritz - Status changed from 'new' to 'resolved'