From 5816479511c4702d9e7159a9045718565bb62545 Mon Sep 17 00:00:00 2001 From: coq Date: Mon, 27 Jan 2003 18:13:32 +0000 Subject: Deux p\'tits trucs ;) git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3614 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/declaremods.ml | 4 +++- parsing/prettyp.ml | 4 ++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/library/declaremods.ml b/library/declaremods.ml index 58e672433..814d408bf 100644 --- a/library/declaremods.ml +++ b/library/declaremods.ml @@ -517,6 +517,8 @@ let end_module id = Not_found -> anomaly "Module objects not found..." in + (* must be called after get_modtype_substobjs, because of possible + dependencies on functor arguments *) Summary.unfreeze_other_summaries fs; let substituted = subst_substobjs dir mp substobjs in @@ -575,7 +577,7 @@ let register_library dir cenv objs digest = Hashtbl.add library_cache dir modobjs; modobjs in - do_module false "register_compilation" load_objects 1 dir mp substobjs objects + do_module false "register_library" load_objects 1 dir mp substobjs objects let start_library dir = diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index 0587bd921..fd728111d 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -296,9 +296,9 @@ let print_constant with_values sep sp = let print_inductive sp = (print_mutual sp) let print_syntactic_def sep kn = - let l = label kn in + let qid = Nametab.shortest_qualid_of_syndef kn in let c = Syntax_def.search_syntactic_definition dummy_loc kn in - (str" Syntactic Definition " ++ pr_lab l ++ str sep ++ + (str" Syntactic Definition " ++ pr_qualid qid ++ str sep ++ Constrextern.without_symbols pr_rawterm c ++ fnl ()) (*let print_module with_values kn = -- cgit v1.2.3