diff options
author | 2000-11-10 16:10:05 +0000 | |
---|---|---|
committer | 2000-11-10 16:10:05 +0000 | |
commit | f747aa371fd3995e0978165b4aa1524688b2676f (patch) | |
tree | 93a34f3dbccefd91313e5dca4bb4ec4236155bf0 /pretyping/syntax_def.ml | |
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 'pretyping/syntax_def.ml')
-rw-r--r-- | pretyping/syntax_def.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pretyping/syntax_def.ml b/pretyping/syntax_def.ml index 606e8d986..736a2be67 100644 --- a/pretyping/syntax_def.ml +++ b/pretyping/syntax_def.ml @@ -29,8 +29,8 @@ let open_syntax_constant (sp,_) = let (in_syntax_constant, out_syntax_constant) = let od = { cache_function = cache_syntax_constant; - load_function = cache_syntax_constant; - open_function = (fun _ -> ()); + load_function = (fun _ -> ()); + open_function = cache_syntax_constant; specification_function = (fun x -> x) } in declare_object ("SYNTAXCONSTANT", od) |