From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Original-To: caml-list@yquem.inria.fr Delivered-To: caml-list@yquem.inria.fr Received: from concorde.inria.fr (concorde.inria.fr [192.93.2.39]) by yquem.inria.fr (Postfix) with ESMTP id 67002BB83 for ; Wed, 19 Jul 2006 17:07:34 +0200 (CEST) Received: from mail.cs.unm.edu (mail.cs.unm.edu [64.106.20.33]) by concorde.inria.fr (8.13.6/8.13.6) with ESMTP id k6JF7XbD031278 for ; Wed, 19 Jul 2006 17:07:34 +0200 Received: from localhost (localhost.localdomain [127.0.0.1]) by mail.cs.unm.edu (Postfix) with ESMTP id D7B28E428D; Wed, 19 Jul 2006 09:07:30 -0600 (MDT) Received: from mail.cs.unm.edu ([127.0.0.1]) by localhost (mail [127.0.0.1]) (amavisd-new, port 10024) with ESMTP id 20048-03; Wed, 19 Jul 2006 09:07:30 -0600 (MDT) Received: from io.cs.unm.edu (io.cs.unm.edu [64.106.21.21]) by mail.cs.unm.edu (Postfix) with ESMTP id 970B3E4289; Wed, 19 Jul 2006 09:07:30 -0600 (MDT) Date: Wed, 19 Jul 2006 09:08:05 -0600 (MDT) From: "William D. Neumann" To: Yoann Padioleau Cc: Richard Jones , caml-list@yquem.inria.fr, Andreas Biegert Subject: Re: [Caml-list] global record In-Reply-To: <871wshveu3.fsf@wanadoo.fr> Message-ID: References: <20060719140729.GA26227@furbychan.cocan.org> <871wshveu3.fsf@wanadoo.fr> MIME-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII; format=flowed X-Virus-Scanned: by amavisd-new-20030616-p10 (Debian) at cs.unm.edu X-Miltered: at concorde with ID 44BE4AB5.000 by Joe's j-chkmail (http://j-chkmail.ensmp.fr)! X-Spam: no; 0.00; verbose:01 printf:01 verbose:01 recorder:98 wrote:01 token:01 token:01 caml-list:01 neumann:02 neumann:02 parse:02 black:96 arg:03 let:03 let:03 X-Spam-Checker-Version: SpamAssassin 3.0.3 (2005-04-27) on yquem.inria.fr X-Spam-Level: X-Spam-Status: No, score=0.0 required=5.0 tests=none autolearn=disabled version=3.0.3 On Wed, 19 Jul 2006, Yoann Padioleau wrote: > You certainly mean > > if !verbose then printf "this is verbose mode\n" No. After he calls Arg parse, he does: let username = !username let password = !password let client = if !client = "" then None else Some !client let token = !token let update = !update let verbose = !verbose let args = List.rev !args and loses the refs. William D. Neumann --- "There's just so many extra children, we could just feed the children to these tigers. We don't need them, we're not doing anything with them. Tigers are noble and sleek; children are loud and messy." -- Neko Case Life is unfair. Kill yourself or get over it. -- Black Box Recorder