[perl #120931] [BUG] Infinite recursion when calling a role method from within the role block in Rakudo

[Christian Bartolomaeus via RT]

This works now:

$ perl6-m -e 'role R { method foo {}; R.foo }; say "alive"'
alive

$ perl6-p -e 'role R { method foo {}; R.foo }; say "alive"'
alive

$ perl6-j -e 'role R { method foo {}; R.foo }; say "alive"'
alive

I added a test to  S14-roles/basic.t with the following commit: 
https://github.com/perl6/roast/commit/195e181557. I'm closing this ticket now.