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.2 required=5.0 tests=AWL,SPF_NEUTRAL autolearn=disabled version=3.1.3 Received: from mail4-relais-sop.national.inria.fr (mail4-relais-sop.national.inria.fr [192.134.164.105]) by yquem.inria.fr (Postfix) with ESMTP id 1769DBC69 for ; Sun, 18 Nov 2007 21:29:14 +0100 (CET) X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: AgAAANIvQEdA6ba/mGdsb2JhbACPDwEBAQEHBAQTGA X-IronPort-AV: E=Sophos;i="4.21,434,1188770400"; d="scan'208";a="19435970" Received: from nf-out-0910.google.com ([64.233.182.191]) by mail4-smtp-sop.national.inria.fr with ESMTP; 18 Nov 2007 21:29:13 +0100 Received: by nf-out-0910.google.com with SMTP id e27so1227266nfd for ; Sun, 18 Nov 2007 12:29:13 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:received:date:to:subject:message-id:references:mime-version:content-type:content-disposition:in-reply-to:user-agent:from; bh=sDMqfSsIs1iL8QETis9goNRGstCK2JDEoA3yLyk+3vo=; b=TrWll2v+4d8qhRPEWuLaLCmOiO84Kxmiafktj/QA+m0tUE6WuAMXXguQ1L5PODoD821OZt7vm5zmNv6hdhA5n46mJxTs2W6Teqg/kWAeyOOBRb5DlqQ01i2I1NIzr5p7nQcXAAtr5d2ye9oM2gqZvn4jl0oy5bZ88R2XPU9c610= DomainKey-Signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:date:to:subject:message-id:references:mime-version:content-type:content-disposition:in-reply-to:user-agent:from; b=jjaqtbD6CmVHU8GBJJ74fStzXnb2GfgqV6l7QYBuOAw9bkEeEXwvZld8KfEFgacFYklkC0b4G4dAql2Qr2nWCRByhef3cZtWi32XhMlQ4u2urZLLk658XvdYvn5jZokz/FlclQ/BRoMf1cc2qXMBzUw0TDruRMdhdj0TknEXQfw= Received: by 10.86.98.18 with SMTP id v18mr4299322fgb.1195417753373; Sun, 18 Nov 2007 12:29:13 -0800 (PST) Received: from localhost ( [86.200.120.75]) by mx.google.com with ESMTPS id l12sm2916041fgb.2007.11.18.12.29.10 (version=TLSv1/SSLv3 cipher=OTHER); Sun, 18 Nov 2007 12:29:12 -0800 (PST) Received: by localhost (sSMTP sendmail emulation); Sun, 18 Nov 2007 21:30:05 +0100 Date: Sun, 18 Nov 2007 21:30:05 +0100 To: caml-list@yquem.inria.fr Subject: Re: [Caml-list] Updated spellcheck patch Message-ID: <20071118203005.GA2350@localhost> References: <474093C4.7060905@gmail.com> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="d6Gm4EdcadzBjdND" Content-Disposition: inline In-Reply-To: <474093C4.7060905@gmail.com> User-Agent: Mutt/1.5.17 (2007-11-01) From: Julien Moutinho X-Spam: no; 0.00; checker:01 edgar:98 0.6:98 wrote:01 caml-list:01 experiments:03 applied:05 patch:08 patch:08 release:09 julien:12 julien:12 version:13 attached:14 310:85 X-Attachments: cset="utf-8" type="text/x-diff" cset="utf-8" name="apply_me_after_ospellcheck-0.6.patch" --d6Gm4EdcadzBjdND Content-Type: text/plain; charset=utf-8 Content-Disposition: inline On Sun, Nov 18, 2007 at 01:34:28PM -0600, Edgar Friendly wrote: > Here's an updated version of the spellcheck patch I posted before. It's > a patch to CVS's release310 branch. You'd better check if someone had put a spell on you because spell failures (from your experiments?) remain in the spell checker patch 0.6 :D A small patch to be applied after ospellcheck-0.6.patch is attached to this mail. Thanks for your work, Julien. --d6Gm4EdcadzBjdND Content-Type: text/x-diff; charset=utf-8 Content-Disposition: attachment; filename="apply_me_after_ospellcheck-0.6.patch" diff --git a/bytecomp/translmod.ml b/bytecomp/translmod.ml index 44e092e..31776f8 100644 --- a/bytecomp/translmod.ml +++ b/bytecomp/translmod.ml @@ -101,7 +101,7 @@ let mod_prim name = transl_path (fst (Env.lookup_value (Ldot (Lident "CamlinternalMod", name)) Env.empty)) - with Not_found | Ident.Nearly_found _ -> + with Not_found | Ident.Found_nearly _ -> fatal_error ("Primitive " ^ name ^ " not found.") let undefined_location loc = diff --git a/bytecomp/translobj.ml b/bytecomp/translobj.ml index c287fbc..3e1206d 100644 --- a/bytecomp/translobj.ml +++ b/bytecomp/translobj.ml @@ -24,7 +24,7 @@ let oo_prim name = try transl_path (fst (Env.lookup_value (Ldot (Lident "CamlinternalOO", name)) Env.empty)) - with Not_found | Ident.nearly_found _ -> + with Not_found | Ident.Found_nearly _ -> fatal_error ("Primitive " ^ name ^ " not found.") (* Share blocks *) --d6Gm4EdcadzBjdND--