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

Reply via email to