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