PL/PgSQL: EXIT USING ROLLBACK

Hello,

Today I'd like to present a way to get rid of code like this:

$$
BEGIN

BEGIN
INSERT INTO foo VALUES (1);
-- run some tests/checks/whatever
RAISE EXCEPTION 'OK';
EXCEPTION WHEN raise_exception THEN
IF SQLERRM <> 'OK' THEN
RAISE;
END IF;
END;

RETURN 'success';
END
$$

And replace it with code like this:

$$
BEGIN

<<testsomething>>
BEGIN
INSERT INTO foo VALUES (1);
-- run some tests/checks/whatever
EXIT USING ROLLBACK testsomething;
EXCEPTION WHEN others THEN
RAISE;
END;

RETURN 'success';
END
$$

I'm not set on the USING ROLLBACK syntax; it was the only thing I could
come up with that seemed even remotely sane and didn't break backwards
compatibility.

Thoughts? Patch attached, if someone cares.

.marko