diff options
| author | puech | 2009-10-30 14:40:00 +0000 |
|---|---|---|
| committer | puech | 2009-10-30 14:40:00 +0000 |
| commit | bf64277c2909311a756eb11a5581e25048e9918f (patch) | |
| tree | 71b659cf5a907f0fcee8bba1f12295b4afa127f0 | |
| parent | b8018319137599b5809bcce0aafca2ecf96b4bf9 (diff) | |
Undo 12432 which caused an exponential behavior at Requires. Compilation time should be back to normal.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12451 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | library/declare.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/library/declare.ml b/library/declare.ml index cf2f1fbaec..1257044d35 100644 --- a/library/declare.ml +++ b/library/declare.ml @@ -102,8 +102,7 @@ let load_constant i ((sp,kn),(_,_,kind)) = (pr_id (basename sp) ++ str " already exists"); let con = Global.constant_of_delta (constant_of_kn kn) in Nametab.push (Nametab.Until i) sp (ConstRef con); - add_constant_kind con kind; - !cache_hook sp + add_constant_kind con kind (* Opening means making the name without its module qualification available *) let open_constant i ((sp,kn),_) = @@ -220,8 +219,7 @@ let check_exists_inductive (sp,_) = let load_inductive i ((sp,kn),(_,mie)) = let names = inductive_names sp kn mie in List.iter check_exists_inductive names; - List.iter (fun (sp, ref) -> Nametab.push (Nametab.Until i) sp ref ) names; - List.iter (fun (sp,_) -> !cache_hook sp) (inductive_names sp kn mie) + List.iter (fun (sp, ref) -> Nametab.push (Nametab.Until i) sp ref ) names let open_inductive i ((sp,kn),(_,mie)) = let names = inductive_names sp kn mie in |