Now fixed in r33193: $ cat 58392 sub f($l) { return() if $l <= 0; say "entering $l"; for 1..3 { f($l-1); say "looping in $l"; } } f(2); $ ./parrot perl6.pbc 58392 entering 2 entering 1 looping in 1 looping in 1 looping in 1 looping in 2 entering 1 looping in 1 looping in 1 looping in 1 looping in 2 entering 1 looping in 1 looping in 1 looping in 1 looping in 2 $
Thanks, Pm