From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: weis
Received: (from weis@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id IAA31503 for caml-redistribution@pauillac.inria.fr; Mon, 15 Nov 1999 08:26:53 +0100 (MET)
Resent-Message-Id: <199911150726.IAA31503@pauillac.inria.fr>
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id SAA16763 for <caml-list@pauillac.inria.fr>; Fri, 12 Nov 1999 18:11:09 +0100 (MET)
Received: from p-biset.issy.cnet.fr (p-biset.issy.cnet.fr [139.100.0.33])
	by nez-perce.inria.fr (8.8.7/8.8.7) with SMTP id SAA25652
	for <caml-list@inria.fr>; Fri, 12 Nov 1999 18:11:06 +0100 (MET)
Received: from l-mhs1.lannion.cnet.fr ([161.104.1.59]) by p-biset.issy.cnet.fr with SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2448.0)
	id WKD119SM; Fri, 12 Nov 1999 18:10:25 +0100
Received: from lsun169.cnet (lsun169.lannion.cnet.fr [161.104.4.4]) by l-mhs1.lannion.cnet.fr with SMTP (Microsoft Exchange Internet Mail Service Version 5.5.2448.0)
	id TT0PBGHG; Fri, 12 Nov 1999 18:14:32 +0100
Received: from lsun565.lannion.cnet.fr (lsun565 [161.104.10.182])
	by lsun169.cnet (8.8.8+Sun/8.8.8) with SMTP id SAA08962;
	Fri, 12 Nov 1999 18:11:05 +0100 (MET)
Received: from lsun565.cnet by lsun565.lannion.cnet.fr (SMI-8.6/SMI-SVR4)
	id SAA18326; Fri, 12 Nov 1999 18:11:04 +0100
Date: Fri, 12 Nov 1999 18:11:04 +0100
Message-Id: <199911121711.SAA18326@lsun565.lannion.cnet.fr>
From: Jean-Francois Monin <JeanFrancois.Monin@cnet.francetelecom.fr>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: Christian RINDERKNECHT <rinderkn@hugo.int-evry.fr>
Cc: skaller <skaller@maxtal.com.au>, caml-list@inria.fr
Subject: Re: Undefined labels
In-Reply-To: <19991112134711.B645@jones.int-evry.fr>
References: <199910132358.BAA09027@miss.wu-wien.ac.at>
	<382AAB06.F3DF8CC0@maxtal.com.au>
	<19991112134711.B645@jones.int-evry.fr>
X-Mailer: VM 6.37 under Emacs 20.2.1
Resent-From: weis@pauillac.inria.fr
Resent-Date: Mon, 15 Nov 1999 08:26:53 +0100
Resent-To: caml-redistribution@pauillac.inria.fr

>         (Unix.fstat argument).Unix.st_kind
>                               ^^^^
> > Using 'open Unix' is unacceptable.
> 
> I also never use the "open" feature, but the consequence is, when using
> nested records, I must qualify all the labels (as in your example),
> and the code becomes unreadable.

Not so unreadable if you declare

module U=Unix

This can be local to a (group of) function(s), e.g.

let f,g =
   let module U = Unix in
   let f argument = (U.fstat argument).U.st_kind in
   let g = 5
   in f,g;;

  Jean-Francois