From 864fda19d046428023851ba540b82c5ca24d06a4 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Wed, 25 Apr 2018 18:08:39 +0200
Subject: Deprecate most evarutil evdref functions

clear_hyps remain with no alternative
---
 pretyping/program.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'pretyping/program.ml')

diff --git a/pretyping/program.ml b/pretyping/program.ml
index 52d940d8eb..8cfb7966cb 100644
--- a/pretyping/program.ml
+++ b/pretyping/program.ml
@@ -16,7 +16,9 @@ let init_reference dir s () = Coqlib.coq_reference  "Program" dir s
 let papp evdref r args = 
   let open EConstr in
   let gr = delayed_force r in
-    mkApp (Evarutil.e_new_global evdref gr, args)
+  let evd, hd = Evarutil.new_global !evdref gr in
+  evdref := evd;
+  mkApp (hd, args)
 
 let sig_typ = init_reference ["Init"; "Specif"] "sig"
 let sig_intro = init_reference ["Init"; "Specif"] "exist"
-- 
cgit v1.2.3