Re: [Caml-list] Updated spellcheck patch

[Julien Moutinho <julien.moutinho@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 437 bytes --]

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.


[-- Attachment #2: apply_me_after_ospellcheck-0.6.patch --]
[-- Type: text/x-diff, Size: 941 bytes --]

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 *)