From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.1.3 (2006-06-01) on yquem.inria.fr X-Spam-Level: * X-Spam-Status: No, score=1.7 required=5.0 tests=AWL,SPF_SOFTFAIL autolearn=disabled version=3.1.3 X-Original-To: caml-list@yquem.inria.fr Delivered-To: caml-list@yquem.inria.fr Received: from discorde.inria.fr (discorde.inria.fr [192.93.2.38]) by yquem.inria.fr (Postfix) with ESMTP id 716ABBC69 for ; Sun, 8 Jul 2007 05:29:24 +0200 (CEST) Received: from ug-out-1314.google.com (ug-out-1314.google.com [66.249.92.173]) by discorde.inria.fr (8.13.6/8.13.6) with ESMTP id l683TNvP015235 for ; Sun, 8 Jul 2007 05:29:24 +0200 Received: by ug-out-1314.google.com with SMTP id o2so881320uge for ; Sat, 07 Jul 2007 20:29:19 -0700 (PDT) DKIM-Signature: a=rsa-sha1; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:received:date:to:cc:subject:message-id:references:mime-version:content-type:content-disposition:in-reply-to:user-agent:from; b=CvP/DKq9h9Dj4Gq/nzdfKEJ+KWL0oXG5kOLyT3d17Pqi1cPKLLyQatz4yTQB2Shlj3UfaLMFEmTQyrGrLI+k+TG0sCAaQ7/5EyKEztLcAsd8wvV7B9qVn/HeeqRkt45p9pjsP3QDh2pgIJfaPcuZFz8TKn5T50i8n69CRMzYkVM= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:date:to:cc:subject:message-id:references:mime-version:content-type:content-disposition:in-reply-to:user-agent:from; b=VKqQpjljULU5HflKAMRKfHTtDoeDj3CkJLVdGhGaP0ZtLZSiW4+dzxDgvWTvcYaY2s30llyxGRHvmfi7Sy+mEp3hbAYFlAxK2tUw09V0UqcuBwQcYdA9+qQPIK/RGzl4wCWi2e+haAbnIPt0cIGPD4vaAJSnligVLDaZss3u2Y4= Received: by 10.66.244.10 with SMTP id r10mr3999503ugh.1183865359196; Sat, 07 Jul 2007 20:29:19 -0700 (PDT) Received: from localhost ( [82.122.105.24]) by mx.google.com with ESMTP id 28sm28420353fkx.2007.07.07.20.29.16 (version=TLSv1/SSLv3 cipher=OTHER); Sat, 07 Jul 2007 20:29:18 -0700 (PDT) Received: by localhost (sSMTP sendmail emulation); Sun, 08 Jul 2007 05:28:54 +0200 Date: Sun, 8 Jul 2007 05:28:54 +0200 To: Jon Harrop Cc: caml-list@yquem.inria.fr Subject: Re: [Caml-list] try .. finally using new camlp4 Message-ID: <20070708032853.GA9215@jiyu.gnu> References: <200707080114.42213.jon@ffconsultancy.com> MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Disposition: inline In-Reply-To: <200707080114.42213.jon@ffconsultancy.com> User-Agent: Mutt/1.5.16 (2007-06-11) From: Julien Moutinho X-j-chkmail-Score: MSGID : 46905A14.000 on discorde : j-chkmail score : X : 0/20 1 0.000 -> 1 X-Miltered: at discorde with ID 46905A14.000 by Joe's j-chkmail (http://j-chkmail . ensmp . fr)! X-Spam: no; 0.00; camlp:01 syntax:01 syntax:01 camlcvs:01 ocaml:01 camlp:01 cmo:01 endline:01 foo:01 foo:01 pervasives:01 endline:01 cvs:01 parsing:01 exception:01 > Drop into a top-level with the extended syntax and the extension works but it > seems to have replaced the original try .. with syntax rather than added a > new one: Interestingly, here is what your code does with the current CVS version : $ ocaml camlp4of.cma pa_try_finally.cmo Objective Caml version 3.11+dev2 (2007-05-08) Camlp4 Parsing version 3.11+dev2 (2007-05-08) # try raise Exit finally print_endline "Foo!";; Foo! Exception: Pervasives.Exit. # try raise Exit with _ -> print_endline "Foo!";; Foo! - : unit = ()