some on_error are not called when one of them throws

[tethal]

In the following example, cleanup1() does not get called.

%new-style
%enable-all-warnings
%require-types
%strict-args

sub cleanup1() {
    printf("cleanup1\n");
}

sub cleanup2() {
    printf("cleanup2\n");
    throw "unexpected";
}

on_error cleanup1();
on_error cleanup2();

throw "error";

But it works if the on_error statements are in different scopes:

on_error cleanup1();
{
   on_error cleanup2();
   throw "error";
}

[davidnich]

another example:

sub cleanup() { printf("cleanup\n"); }
on_exit cleanup();
on_exit throw True;

the cleanup() call is never executed although it should be