diff options
| author | letouzey | 2004-04-05 16:02:03 +0000 |
|---|---|---|
| committer | letouzey | 2004-04-05 16:02:03 +0000 |
| commit | cfff5f57ff1e956e5a332ff466638db420474d7a (patch) | |
| tree | 0f1f3602b140d1411d3934bac653151ceefb7892 | |
| parent | 2bb215ff6f65713312bfa207c3937628bd0b02f8 (diff) | |
correction rapide du bug PR\#592
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5635 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/ocaml.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/contrib/extraction/ocaml.ml b/contrib/extraction/ocaml.ml index 26f20e43e7..0498987b32 100644 --- a/contrib/extraction/ocaml.ml +++ b/contrib/extraction/ocaml.ml @@ -108,7 +108,9 @@ let push_vars ids (db,avoid) = let ids',avoid' = rename_vars avoid ids in ids', (ids' @ db, avoid') -let get_db_name n (db,_) = List.nth db (pred n) +let get_db_name n (db,_) = + let id = List.nth db (pred n) in + if id = dummy_name then id_of_string "__" else id (*s Ocaml renaming issues. *) |