diff options
| author | Maxime Dénès | 2015-10-14 13:41:00 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2015-10-14 13:41:56 +0200 |
| commit | 043d67c93111328fdbc2d7afa1a84daf3d68a5cc (patch) | |
| tree | c9b1a7b90162cc88cfb4de0e647d9f4f4015096d | |
| parent | d024277d485e3b6a70c217be965063a66aeffefe (diff) | |
Remove unused infos structure in VM.
Became unused after c47b205206d832430fa80a3386be80149e281d33.
| -rw-r--r-- | kernel/vconv.ml | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/kernel/vconv.ml b/kernel/vconv.ml index 8af2efc588..2cbc102021 100644 --- a/kernel/vconv.ml +++ b/kernel/vconv.ml @@ -40,8 +40,6 @@ let conv_vect fconv vect1 vect2 cu = !rcu else raise NotConvertible -let infos = ref (create_clos_infos betaiotazeta Environ.empty_env) - let rec conv_val env pb k v1 v2 cu = if v1 == v2 then cu else conv_whd env pb k (whd_val v1) (whd_val v2) cu @@ -219,7 +217,6 @@ and conv_eq_vect env vt1 vt2 cu = else raise NotConvertible let vconv pb env t1 t2 = - infos := create_clos_infos betaiotazeta env; let _cu = try conv_eq env pb t1 t2 (universes env) with NotConvertible -> |