Re: advice on package design

["Martin Dowie" <martin.dowie@baesystems.com>]

Marius Amado Alves wrote:
> Bob told you why. I'll tell you how, just in case. Rewrite Foo thus:
>
>   function Foo (I : Integer) return Integer is
>   begin
>      declare
>         I2 : Integer := I + 1;
>      begin
>         return I2;
>      end;
>   exception
>      when others =>
>         return 0;
>   end Foo;
>
> (Of course this how follows from the why. I2 is no longer visible in
> the handler.)

Thanks - I'm afraid I've already been through the pain of doing just
this on several dozen function on my first Ada83 program when I
discovered this little 'design feature' :-)

Cheers

-- Martin