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-Thread: 103376,99e73f65ea2533b9
X-Google-Attributes: gid103376,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news4.google.com!feeder1-2.proxad.net!proxad.net!feeder1-1.proxad.net!club-internet.fr!feedme-small.clubint.net!newsfeed.freenet.de!newsfeed.r-kom.de!news-nue1.dfn.de!news-lei1.dfn.de!news.uni-weimar.de!not-for-mail
From: stefan-lucks@see-the.signature
Newsgroups: comp.lang.ada
Subject: Re: and then... (a curiosity)
Date: Tue, 2 Sep 2008 15:40:42 +0200
Organization: Bauhaus-Universitaet Weimar
Message-ID: <Pine.LNX.4.64.0809021539490.11408@medsec1.medien.uni-weimar.de>
References: 
 <18b41828-bda4-4484-8884-ad62ce1c831d@f36g2000hsa.googlegroups.com>
  <57qdnfULQ9tzKCHVnZ2dnUVZ_tHinZ2d@comcast.com>
 <Pine.LNX.4.64.0809020925030.9968@medsec1.medien.uni-weimar.de>
 <48bd0003$1@news.post.ch>
 <Pine.LNX.4.64.0809021210200.10279@medsec1.medien.uni-weimar.de>
 <a328076a-5b2e-4e05-8a07-87de6e72cf1d@s50g2000hsb.googlegroups.com>
 <Pine.LNX.4.64.0809021510300.11408@medsec1.medien.uni-weimar.de>
Reply-To: stefan-lucks@see-the.signature
NNTP-Posting-Host: medsec1.medien.uni-weimar.de
Mime-Version: 1.0
Content-Type: TEXT/PLAIN; charset=US-ASCII
X-Trace: tigger.scc.uni-weimar.de 1220358529 728 141.54.178.228 (2 Sep 2008
 12:28:49 GMT)
X-Complaints-To: news@tigger.scc.uni-weimar.de
NNTP-Posting-Date: Tue, 2 Sep 2008 12:28:49 +0000 (UTC)
X-X-Sender: lucks@medsec1.medien.uni-weimar.de
In-Reply-To: <Pine.LNX.4.64.0809021510300.11408@medsec1.medien.uni-weimar.de>
Xref: g2news1.google.com comp.lang.ada:1865
Date: 2008-09-02T15:40:42+02:00
List-Id: <comp.lang.ada>

>   if A(X) and B(Y) then ... end if;
> 
> IMHO, much better style is the following:
> 
>   declare
>     Tmp_A: Boolean := A(X);
>     Tmp_B: Boolean := B(X);

      Tmp_B: Boolean := B(Y) -- sorry for the typo!

>   begin
>     if Tmp_A and Tmp_B then ... end if;
>   end;

-- 
------ Stefan Lucks   --  Bauhaus-University Weimar  --   Germany  ------
               Stefan dot Lucks at uni minus weimar dot de
------  I  love  the  taste  of  Cryptanalysis  in  the  morning!  ------