From f8a790f577366f74645d15e767ce827dfa1f0908 Mon Sep 17 00:00:00 2001
From: glondu
Date: Thu, 17 Sep 2009 15:58:38 +0000
Subject: Remove useless Liboject.export_function field

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12338 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/subtac/subtac_obligations.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'plugins/subtac')

diff --git a/plugins/subtac/subtac_obligations.ml b/plugins/subtac/subtac_obligations.ml
index 94bd059c2d..76a8a03221 100644
--- a/plugins/subtac/subtac_obligations.ml
+++ b/plugins/subtac/subtac_obligations.ml
@@ -170,8 +170,7 @@ let (input,output) =
 				   prlist_with_sep spc (fun x -> Nameops.pr_id x)
 				   (map_keys infos));
 	Substitute (ProgMap.empty, tac));
-      subst_function = subst;
-      export_function = (fun x -> Some x) }
+      subst_function = subst}
 
 let update_state () =
 (*   msgnl (str "Updating obligations info"); *)
-- 
cgit v1.2.3