[perl #57330] 'exit' from deep within rakudo call stack causes segmentation fault

[Carl Mäsak]

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


$ svn info | grep Revi
Revision: 29791

The following works:

$ ./perl6 -e 'exit'
$ ./perl6 -e 'sub a { exit }; a()'

But this doesn't:

$ ./perl6 -e 'sub a { b() }; sub b { exit }; a()'
perl6(26935) malloc: *** error for object 0x27c4c40: double free
*** set a breakpoint in malloc_error_break to debug
Segmentation fault