Re: 'withing' problem

[Preben Randhol <randhol+abuse@pvv.org>]

On Fri, 9 Nov 2001 15:28:48 -0500, Matthew Heaney wrote:
> package body Patients is
> 
>    procedure Visit_Doctor
>      (Patient : in out Patient_Type;
>       Doctor  : in out Doctor_Type) is
>    begin
>       Treat_Patient (Doctor, P);
                               ^
                               shouldn't it be Patient here?

                               gnatgcc -c patients.adb
                               patients.adb:9:30: "P" is undefined
                               gnatmake: "patients.adb" compilation error

>    end;
> 
>    procedure Pay_Doctor
>      (Patient : in out Patient_Type;
>       Doctor  : in out Doctor_Type) is
>    begin
>       null;
>    end;
> 
> end Patients;

Preben
-- 
Preben Randhol ------------------- http://www.pvv.org/~randhol/ --
                 �For me, Ada95 puts back the joy in programming.�