diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2016-03-04 17:40:10 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2016-03-04 17:40:48 +0100 |
| commit | b98e4857a13a4014c65882af5321ebdb09f41890 (patch) | |
| tree | c4968e85483866529cc8f4e9a37da28470548d90 /kernel/csymtable.ml | |
| parent | 78b5670a0a1cf7ba31acabe710b311bf13df8745 (diff) | |
Rename Ephemeron -> CEphemeron.
Fixes compilation of Coq with OCaml 4.03 beta 1.
Diffstat (limited to 'kernel/csymtable.ml')
| -rw-r--r-- | kernel/csymtable.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/csymtable.ml b/kernel/csymtable.ml index fc7e1b937..7e1a5d5b7 100644 --- a/kernel/csymtable.ml +++ b/kernel/csymtable.ml @@ -131,8 +131,8 @@ let key rk = match !rk with | None -> raise NotEvaluated | Some k -> - try Ephemeron.get k - with Ephemeron.InvalidKey -> raise NotEvaluated + try CEphemeron.get k + with CEphemeron.InvalidKey -> raise NotEvaluated (************************) (* traduction des patch *) @@ -171,7 +171,7 @@ let rec slot_for_getglobal env kn = | BCconstant -> set_global (val_of_constant kn) in (*Pp.msgnl(str"value stored at: "++int pos);*) - rk := Some (Ephemeron.create pos); + rk := Some (CEphemeron.create pos); pos and slot_for_fv env fv = |