methode export

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

1 files changed, 2 insertions, 2 deletions

diff --git a/pretyping/classops.ml b/pretyping/classops.ml
index b4274e9fe..306f2b8ce 100755
--- a/pretyping/classops.ml
+++ b/pretyping/classops.ml
@@ -173,7 +173,7 @@ let (inClass,outClass) =
                   { load_function = (fun _ -> ());
 		    open_function = cache_class;
                     cache_function = cache_class;
-                    specification_function = (function x -> x) })
+                    export_function = (function x -> Some x) })
 
 let add_new_class (cl,s,stre,p) = 
   Lib.add_anonymous_leaf (inClass ((cl,{cL_STR=s;cL_STRE=stre;cL_PARAM=p})))
@@ -324,4 +324,4 @@ let (inCoercion,outCoercion) =
                   { load_function = (fun _ -> ());
 		    open_function = cache_coercion;
                     cache_function = cache_coercion;
-                    specification_function = (function x -> x) })
+                    export_function = (function x -> Some x) })