diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-10 16:10:05 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2000-11-10 16:10:05 +0000 |
| commit | f747aa371fd3995e0978165b4aa1524688b2676f (patch) | |
| tree | 93a34f3dbccefd91313e5dca4bb4ec4236155bf0 /contrib | |
| parent | f2f6ca268be057399b5d9cf1f9b96664af2b02cb (diff) | |
Bugs lies a la confusion load/open et a un open abusivement recursif dans library
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@839 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/ring/ring.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/contrib/ring/ring.ml b/contrib/ring/ring.ml index cada4f3fc..f82cb6417 100644 --- a/contrib/ring/ring.ml +++ b/contrib/ring/ring.ml @@ -147,8 +147,8 @@ let (theory_to_obj, obj_to_theory) = let cache_th (_,(c, th)) = theories_map_add (c,th) and spec_th x = x in declare_object ("tactic-ring-theory", - { load_function = cache_th; - open_function = (fun _ -> ()); + { load_function = (fun _ -> ()); + open_function = cache_th; cache_function = cache_th; specification_function = spec_th }) |