Remove useless Liboject.export_function field

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12338 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 0 insertions, 8 deletions

diff --git a/library/library.ml b/library/library.ml
index 9604a990c..d129a24db 100644
--- a/library/library.ml
+++ b/library/library.ml
@@ -304,12 +304,9 @@ let cache_import obj =
 
 let subst_import (_,_,o) = o
 
-let export_import o = Some o
-
 let classify_import (_,export as obj) =
   if export then Substitute obj else Dispose
 
-
 let (in_import, out_import) =
   declare_object {(default_object "IMPORT LIBRARY") with
        cache_function = cache_import;
@@ -523,10 +520,6 @@ let cache_require o =
   load_require 1 o;
   open_require 1 o
 
-  (* keeps the require marker for closed section replay but removes
-     OS dependent fields from .vo files for cross-platform compatibility *)
-let export_require (_,l,e) = Some ([],l,e)
-
 let discharge_require (_,o) = Some o
 
 (* open_function is never called from here because an Anticipate object *)
@@ -536,7 +529,6 @@ let (in_require, out_require) =
        cache_function = cache_require;
        load_function = load_require;
        open_function = (fun _ _ -> assert false);
-       export_function = export_require;
        discharge_function = discharge_require;
        classify_function = (fun o -> Anticipate o) }