diff options
| author |  filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-15 07:56:21 +0000 |
|---|---|---|
| committer | filliatr <filliatr@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-15 07:56:21 +0000 |
| commit | b2c9129662f55eea46a8937f9fd0cfabc029457a (patch) | |
| tree | fb3cb41fe45c41b58149559228088607621c8007 /library/goptions.ml | |
| parent | e4639721323887555d278b963b84b11244871632 (diff) | |
methode export
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@851 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/goptions.ml')
| -rw-r--r-- | library/goptions.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/library/goptions.ml b/library/goptions.ml index ad0b844be..64b08f6f4 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -85,13 +85,13 @@ module MakeTable = let cache_options (_,(f,p)) = match f with | GOadd -> t := MySet.add p !t | GOrmv -> t := MySet.remove p !t in - let specification_options fp = fp in + let export_options fp = Some fp in let (inGo,outGo) = Libobject.declare_object (kn, { Libobject.load_function = load_options; Libobject.open_function = cache_options; Libobject.cache_function = cache_options; - Libobject.specification_function = specification_options}) in + Libobject.export_function = export_options}) in ((fun c -> Lib.add_anonymous_leaf (inGo (GOadd, c))), (fun c -> Lib.add_anonymous_leaf (inGo (GOrmv, c)))) else @@ -204,13 +204,13 @@ let async_value_tab = ref OptionMap.empty let load_sync_value _ = () let cache_sync_value (_,(k,v)) = sync_value_tab := OptionMap.add k v !sync_value_tab -let spec_sync_value fp = fp +let export_sync_value fp = Some fp let (inOptVal,_) = - Libobject.declare_object ("Sync_option_value", - {Libobject.load_function = load_sync_value; + Libobject.declare_object ("Sync_option_value", + { Libobject.load_function = load_sync_value; Libobject.open_function = cache_sync_value; Libobject.cache_function = cache_sync_value; - Libobject.specification_function = spec_sync_value}) + Libobject.export_function = export_sync_value }) let freeze_sync_table () = !sync_value_tab let unfreeze_sync_table l = sync_value_tab := l |