Re: Usage of Interfaces with Ada 95

[mheaney@on2.com (Matthew Heaney)]

Matthew Heaney <matthewjheaney@earthlink.net> wrote in message news:<u3cefgq26.fsf@earthlink.net>...
>
> Now let's use the a Charles list (say) to instantiate the Simon
> algorithm:
> 
>    procedure Op (List : in List_Subtype) is
> 
>       procedure Process (I : IT) is ...;
> 
>       function Is_Done (I : IT) return Boolean is
>       begin
>          return I /= Back (List);
>       end;

oops!  Of course that should have been:

   function Is_Done (I : IT) return Boolean is
   begin
      return I = Back (List);
   end;