From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.5-pre1
Date: 16 Dec 91 21:17:40 GMT
From: terminus.umd.edu!brad@umd5.umd.edu  (Brad Balfour)
Subject: Re: Help with Exceptions for Generic Instantiation
Message-ID: <brad.692918260@terminus.umd.edu>
List-Id: <comp.lang.ada>

whoops. I forgot the package prefix in two places in the body of Echo.
The code should read:

  BEGIN
    A_Stream.Open(S, TTY.Prompt(Message));
    BEGIN
      LOOP
        A_Stream.Get(C, S);
        TTY.Announce(C);
      END LOOP;
    EXCEPTION
      WHEN A_Stream.No_More_Data_Error =>  -- now the exception name is visible
        A_Stream.Close(S);
    END;
    TTY.Announce(SU.CR);
  END Echo;

----
Brad Balfour
EVB Software Engineering, Inc.
brad@terminus.umd.edu