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 /proofs | |
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 'proofs')
-rw-r--r-- | proofs/macros.ml | 2 | ||||
-rw-r--r-- | proofs/tacinterp.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/proofs/macros.ml b/proofs/macros.ml index 95da5702d..92cc8cf41 100644 --- a/proofs/macros.ml +++ b/proofs/macros.ml @@ -43,7 +43,7 @@ let (inMD,outMD) = declare_object ("TACTIC-MACRO-DATA", { cache_function = cache_md; load_function = (fun _ -> ()); - open_function = (fun _ -> ()); + open_function = cache_md; specification_function = specification_md }) let add_macro_hint na (ids,body) = diff --git a/proofs/tacinterp.ml b/proofs/tacinterp.ml index 22905459f..72593da36 100644 --- a/proofs/tacinterp.ml +++ b/proofs/tacinterp.ml @@ -945,8 +945,8 @@ let (inMD,outMD) = in add (na,ve) in declare_object ("TACTIC-DEFINITION", {cache_function = cache_md; - load_function = cache_md; - open_function = (fun _ -> ()); + load_function = (fun _ -> ()); + open_function = cache_md; specification_function = (fun x -> x)}) (* Adds a Tactic Definition in the table *) |