diff options
| author | letouzey | 2012-10-02 15:58:00 +0000 |
|---|---|---|
| committer | letouzey | 2012-10-02 15:58:00 +0000 |
| commit | 85c509a0fada387d3af96add3dac6a7c702b5d01 (patch) | |
| tree | 4d262455aed52c20af0a9627d47d29b03ca6523d /kernel | |
| parent | 3415801b2c368ce03f6e8d33a930b9ab9e0b9fd1 (diff) | |
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
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/csymtable.ml | 1 | ||||
| -rw-r--r-- | kernel/modops.ml | 3 | ||||
| -rw-r--r-- | kernel/pre_env.ml | 2 | ||||
| -rw-r--r-- | kernel/term.ml | 1 | ||||
| -rw-r--r-- | kernel/univ.ml | 2 |
5 files changed, 0 insertions, 9 deletions
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 = |