diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-04-26 14:29:34 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2018-05-11 13:41:26 +0200 |
| commit | 8894e9eb35e5529966fea699014fef83e4b270bd (patch) | |
| tree | 14e790361a89a4f0b50b5e45a0e4ea9fb74a33c0 /pretyping/typing.ml | |
| parent | 81107b12644c78f204d0a46df520b8b2d8e72142 (diff) | |
set_solve_evars doesn't use an evar_map ref
Diffstat (limited to 'pretyping/typing.ml')
| -rw-r--r-- | pretyping/typing.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/pretyping/typing.ml b/pretyping/typing.ml index da72d7a75..281e33e9b 100644 --- a/pretyping/typing.ml +++ b/pretyping/typing.ml @@ -443,4 +443,9 @@ let e_solve_evars env evdref c = (* side-effect on evdref *) nf_evar !evdref c -let _ = Evarconv.set_solve_evars (fun env evdref c -> e_solve_evars env evdref c) +let solve_evars env sigma c = + let evdref = ref sigma in + let c = e_solve_evars env evdref c in + !evdref, c + +let _ = Evarconv.set_solve_evars (fun env sigma c -> solve_evars env sigma c) |