diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-11-08 17:14:52 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-11-08 17:14:52 +0000 |
| commit | 4a7555cd875b0921368737deed4a271450277a04 (patch) | |
| tree | ea296e097117b2af5606e7365111f5694d40ad9a /toplevel/class.ml | |
| parent | 8d94b3c7f4c51c5f78e6438b7b3e39f375ce9979 (diff) | |
Nettoyage suite à la détection par défaut des variables inutilisées par ocaml 3.09
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7538 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/class.ml')
| -rw-r--r-- | toplevel/class.ml | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/toplevel/class.ml b/toplevel/class.ml index 88983637a..eb767694b 100644 --- a/toplevel/class.ml +++ b/toplevel/class.ml @@ -268,8 +268,6 @@ lorque source est None alors target est None aussi. let add_new_coercion_core coef stre source target isid = check_source source; - let env = Global.env () in - let v = constr_of_global coef in let t = Global.type_of_global coef in if coercion_exists coef then raise (CoercionError AlreadyExists); let tg,lp = prods_of t in |