6 lines
146 B
Ada
6 lines
146 B
Ada
...
|
|
exception
|
|
when Foo_Error =>
|
|
if ... then -- Alas, cannot handle it here,
|
|
raise; -- continue propagation of
|
|
end if;
|