Re: Q: Endless loop by dispatching

[Jeffrey Carter <spam@spam.com>]

Michael Erdmann wrote:
> 
>    a := next(Attributes(This'Tag))
>    while a /= null loop
>        Write( this.all, a.id );
>        a := next(....);
>    end loop;

When you're in the habit of using "while" loops, you often write code 
like this. When you avoid them, you tend to write

loop
    A := Next (Attributes (This'Tag) );

    exit when a = null;

    Write (This.all, A.ID);
end loop;

which avoids the often dangerous code duplication required by using "while".

-- 
Jeff Carter
"I blow my nose on you."
Monty Python & the Holy Grail