diff options
| author | Maxime Dénès | 2018-09-03 12:46:06 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-09-03 12:46:06 +0200 |
| commit | 937d2a0ea78bbbdf392d0a128f177f413db34c77 (patch) | |
| tree | 80bba41606e8cbd812aaae336993f6dfa3e7e213 /kernel/nativeconv.ml | |
| parent | 24667e72baaeac38360d4f4e5bb2b6eb0c31f778 (diff) | |
| parent | 1b378d6b5625614189eee4d2817fe11ba6751f65 (diff) | |
Merge PR #8124: Fix #8121: anomalies in native_compute with let and evars.
Diffstat (limited to 'kernel/nativeconv.ml')
| -rw-r--r-- | kernel/nativeconv.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativeconv.ml b/kernel/nativeconv.ml index 931b8bbc86..c75dde843e 100644 --- a/kernel/nativeconv.ml +++ b/kernel/nativeconv.ml @@ -64,7 +64,7 @@ and conv_atom env pb lvl a1 a2 cu = match a1, a2 with | Ameta (m1,_), Ameta (m2,_) -> if Int.equal m1 m2 then cu else raise NotConvertible - | Aevar (ev1,_,args1), Aevar (ev2,_,args2) -> + | Aevar (ev1, args1), Aevar (ev2, args2) -> if Evar.equal ev1 ev2 then Array.fold_right2 (conv_val env CONV lvl) args1 args2 cu else raise NotConvertible |