Ada 0x, exception idea ?

[sk <noname@myob.com>]

Hi,

IDEA

when <boolean-condition> raise <exception-name>;

OR

when <boolean-condition> then raise <exception-name>;

OR

raise <exception-name> when <boolean-condition>;

SITUATION

Call_Condition_Setting_Procedure (Paramters, Success);

if not Success then
     raise Call_Failed;
end if;


REPLACED BY

Call_Condition_Setting_Procedure (Paramters, Success);

when not Success raise Call_Failed;
OR
when not Success then raise Call_Failed;
OR
raise Call_Failed when not Success;


Thoughts ?

(This is a ghost of Timex/Sinclair Basic "ON ERR GOSUB" (sorry to
pollute with the "B" word :-)).

-- 
-------------------------------------------------
-- Merge vertically for real address
--
--     s n p @ t . o
--      k i e k c c m
-------------------------------------------------