From cfff5f57ff1e956e5a332ff466638db420474d7a Mon Sep 17 00:00:00 2001
From: letouzey
Date: Mon, 5 Apr 2004 16:02:03 +0000
Subject: correction rapide du bug PR\#592

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5635 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 contrib/extraction/ocaml.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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. *)
 
-- 
cgit v1.2.3