From 92ffe0fb9d9b0390f56d11ae4fa3871064a17c74 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Thu, 6 Feb 2020 14:33:47 +0100
Subject: unsafe_type_of -> type_of in Pretyping.pretype_ref

We already thread the evar map
---
 pretyping/pretyping.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pretyping/pretyping.ml b/pretyping/pretyping.ml
index bf61d44a10..cb0c4868b5 100644
--- a/pretyping/pretyping.ml
+++ b/pretyping/pretyping.ml
@@ -446,7 +446,7 @@ let pretype_ref ?loc sigma env ref us =
          Pretype_errors.error_var_not_found ?loc !!env sigma id)
   | ref ->
     let sigma, c = pretype_global ?loc univ_flexible env sigma ref us in
-    let ty = unsafe_type_of !!env sigma c in
+    let sigma, ty = type_of !!env sigma c in
     sigma, make_judge c ty
 
 let interp_sort ?loc evd : glob_sort -> _ = function
-- 
cgit v1.2.3