From 85c509a0fada387d3af96add3dac6a7c702b5d01 Mon Sep 17 00:00:00 2001
From: letouzey
Date: Tue, 2 Oct 2012 15:58:00 +0000
Subject: Remove some more "open" and dead code thanks to OCaml4 warnings

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15844 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/csymtable.ml | 1 -
 kernel/modops.ml    | 3 ---
 kernel/pre_env.ml   | 2 --
 kernel/term.ml      | 1 -
 kernel/univ.ml      | 2 --
 5 files changed, 9 deletions(-)

(limited to 'kernel')

diff --git a/kernel/csymtable.ml b/kernel/csymtable.ml
index 8d09cbd7ed..82250badbb 100644
--- a/kernel/csymtable.ml
+++ b/kernel/csymtable.ml
@@ -94,7 +94,6 @@ let annot_tbl = Hashtbl.create 31
 
 exception NotEvaluated
 
-open Pp
 let key rk =
   match !rk with
   | Some k -> (*Pp.msgnl (str"found at: "++int k);*)  k
diff --git a/kernel/modops.ml b/kernel/modops.ml
index 2f7d480afb..1bef6bf50a 100644
--- a/kernel/modops.ml
+++ b/kernel/modops.ml
@@ -98,9 +98,6 @@ let error_no_module_to_end _ =
 let error_no_modtype_to_end _ =
   raise (ModuleTypingError NoModuleTypeToEnd)
 
-let error_not_a_modtype s =
-  raise (ModuleTypingError (NotAModuleType s))
-
 let error_not_a_module s =
   raise (ModuleTypingError (NotAModule s))
 
diff --git a/kernel/pre_env.ml b/kernel/pre_env.ml
index ffa1d304e0..6e5a45b9cb 100644
--- a/kernel/pre_env.ml
+++ b/kernel/pre_env.ml
@@ -106,8 +106,6 @@ let push_named_context_val d (ctxt,vals) =
   let rval = ref VKnone in
     Sign.add_named_decl d ctxt, (id,rval)::vals
 
-exception ASSERT of rel_context
-
 let push_named d env =
 (*  if not (env.env_rel_context = []) then raise (ASSERT env.env_rel_context);
   assert (env.env_rel_context = []); *)
diff --git a/kernel/term.ml b/kernel/term.ml
index 42309c37ef..0937fc16b9 100644
--- a/kernel/term.ml
+++ b/kernel/term.ml
@@ -828,7 +828,6 @@ let subst1 lam = substl [lam]
 let substnl_decl laml k = map_rel_declaration (substnl laml k)
 let substl_decl laml = substnl_decl laml 0
 let subst1_decl lam = substl_decl [lam]
-let substnl_named laml k = map_named_declaration (substnl laml k)
 let substl_named_decl = substl_decl
 let subst1_named_decl = subst1_decl
 
diff --git a/kernel/univ.ml b/kernel/univ.ml
index faadb10818..f1fc8bda50 100644
--- a/kernel/univ.ml
+++ b/kernel/univ.ml
@@ -29,8 +29,6 @@ open Util
    union-find algorithm. The assertions $<$ and $\le$ are represented by
    adjacency lists *)
 
-let compare_ints (x:int) (y:int) = Pervasives.compare x y
-
 module UniverseLevel = struct
 
   type t =
-- 
cgit v1.2.3