From b2c9129662f55eea46a8937f9fd0cfabc029457a Mon Sep 17 00:00:00 2001 From: filliatr Date: Wed, 15 Nov 2000 07:56:21 +0000 Subject: methode export git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@851 85f007b7-540e-0410-9357-904b9bb8a0f7 --- pretyping/classops.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pretyping/classops.ml') 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) }) -- cgit v1.2.3