From 77e6eda6388aba117476f6c8445c4b61ebdbc33e Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 27 Dec 2015 00:44:58 +0100
Subject: Tentative API fix for tactic arguments to be fed to tclWITHHOLES.

The previous implementation was a source of evar leaks if misused, as
it created values coming together with their current evar_map. This is
dead wrong if the value is not used on the spot. To fix this, we rather
return a ['a delayed_open] object.

Two argument types were modified: bindings and constr_bindings. The
open_constr argument should also be fixed, but it is more entangled and
thus I leave it for another commit.
---
 interp/constrarg.mli | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'interp')

diff --git a/interp/constrarg.mli b/interp/constrarg.mli
index f2f314eea0..052e4ec69b 100644
--- a/interp/constrarg.mli
+++ b/interp/constrarg.mli
@@ -55,12 +55,12 @@ val wit_open_constr :
 val wit_constr_with_bindings :
   (constr_expr with_bindings,
   glob_constr_and_expr with_bindings,
-  constr with_bindings Evd.sigma) genarg_type
+  constr with_bindings delayed_open) genarg_type
 
 val wit_bindings :
   (constr_expr bindings,
   glob_constr_and_expr bindings,
-  constr bindings Evd.sigma) genarg_type
+  constr bindings delayed_open) genarg_type
 
 val wit_hyp_location_flag : Locus.hyp_location_flag uniform_genarg_type
 
-- 
cgit v1.2.3