diff options
| -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. *) |