diff options
| author |  Paul Steckler <steck@stecksoft.com> | 2017-12-05 12:34:06 -0500 |
|---|---|---|
| committer | Paul Steckler <steck@stecksoft.com> | 2017-12-05 12:34:06 -0500 |
| commit | f53156a6d3819682dc888835abcef2b5320dab1b (patch) | |
| tree | 5aa9e3f2f0e81e2c962277e3fc075e85924add37 /engine/evd.ml | |
| parent | e29993c250164b9486d4d7ffdebb9bfee4a2828f (diff) | |
Rename update to set, fixes #6196
Diffstat (limited to 'engine/evd.ml')
| -rw-r--r-- | engine/evd.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/evd.ml b/engine/evd.ml index d57ae89dd..45d2a8b08 100644 --- a/engine/evd.ml +++ b/engine/evd.ml @@ -401,7 +401,7 @@ let rename evk id (evtoid, idtoev) = | None -> (EvMap.add evk id evtoid, Id.Map.add id evk idtoev) | Some id' -> if Id.Map.mem id idtoev then anomaly (str "Evar name already in use."); - (EvMap.update evk id evtoid (* overwrite old name *), Id.Map.add id evk (Id.Map.remove id' idtoev)) + (EvMap.set evk id evtoid (* overwrite old name *), Id.Map.add id evk (Id.Map.remove id' idtoev)) let reassign_name_defined evk evk' (evtoid, idtoev as names) = let id = try Some (EvMap.find evk evtoid) with Not_found -> None in |