From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,a2124d80f1ddc0d4
X-Google-Attributes: gid103376,public
X-Google-Thread: f79bb,a2124d80f1ddc0d4
X-Google-Attributes: gidf79bb,public
X-Google-ArrivalTime: 1995-03-28 22:35:09 PST
Path: 
 nntp.gmd.de!news.rwth-aachen.de!news.rhrz.uni-bonn.de!news.uni-stuttgart.de!rz.uni-karlsruhe.de!xlink.net!howland.reston.ans.net!cs.utexas.edu!swrinde!elroy.jpl.nasa.gov!lll-winken.llnl.gov!fnnews.fnal.gov!stc06.ctd.ornl.gov!mbk
From: mbk@jt3ws1.etd.ornl.gov (Kennel)
Newsgroups: comp.lang.ada,comp.lang.sather
Subject: Re: Current state of the language
Date: 28 Mar 1995 18:42:03 GMT
Organization: Oak Ridge National Lab, Oak Ridge, TN
Distribution: world
Message-ID: <3l9l9r$l9m@stc06.ctd.ornl.gov>
References: <3ks2vu$2eo@sifon.cc.mcgill.ca> <D5yq99.CxG@inmet.camb.inmet.com>
 <3l6jil$12kj@watnews1.watson.ibm.com> <3l9l04$l9m@stc06.ctd.ornl.gov>
Reply-To: kennel@msr.epm.ornl.gov
NNTP-Posting-Host: jt3ws1.etd.ornl.gov
X-Newsreader: TIN [version 1.2 PL2]
Xref: nntp.gmd.de comp.lang.ada:20196 comp.lang.sather:1704
Date: 1995-03-28T18:42:03+00:00
List-Id: <comp.lang.ada>

Kennel (mbk@jt3ws1.etd.ornl.gov) wrote:
> 	ancestors!: PERSON is
> 	-- *all* ancestors.  This routine may have infinite loops if
>         -- your family comes from Arkansas.  Need a special routine for that.
> 	  loop
> 	    p ::= children!;
> 	    yield(p);	 -- yield direct children
> 	    loop yield(p.ancestors!); end; 
> 		 -- yield ancestors of your children.
> 	  end;
> 	end;

Oops!!! This should be named "descendants!", not ancestors!.