diff options
| author | herbelin | 2000-11-28 16:32:08 +0000 |
|---|---|---|
| committer | herbelin | 2000-11-28 16:32:08 +0000 |
| commit | 7da58295173715d6de518516e2653dac90dd2d5c (patch) | |
| tree | 2cba748ef7c3c437fb527fe15214d02b2f546e14 /library/lib.ml | |
| parent | 14b236a0bcc5071c5048d87768437df0b30e387a (diff) | |
Prise en compte du repertoire dans le section path; utilisation de dirpath pour les noms de modules
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1005 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/lib.ml')
| -rw-r--r-- | library/lib.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/lib.ml b/library/lib.ml index 4dd0a36f20..a7028e1201 100644 --- a/library/lib.ml +++ b/library/lib.ml @@ -8,7 +8,7 @@ open Summary type node = | Leaf of obj - | Module of string + | Module of dir_path | OpenedSection of string * Summary.frozen (* bool is to tell if the section must be opened automatically *) | ClosedSection of bool * string * library_segment @@ -36,7 +36,7 @@ let recalc_path_prefix () = | (sp, OpenedSection _) :: _ -> let (pl,id,_) = repr_path sp in pl@[string_of_id id] | _::l -> recalc l - | [] -> (match !module_name with Some m -> [m] | None -> []) + | [] -> (match !module_name with Some m -> m | None -> []) in path_prefix := recalc !lib_stk @@ -120,7 +120,7 @@ let start_module s = module_name := Some s; Univ.set_module s; let _ = add_anonymous_entry (Module s) in - path_prefix := [s] + path_prefix := s let is_opened_section = function (_,OpenedSection _) -> true | _ -> false @@ -198,7 +198,7 @@ let is_section_p sp = dirpath_prefix_of sp !path_prefix (* State and initialization. *) -type frozen = string option * library_segment +type frozen = dir_path option * library_segment let freeze () = (!module_name, !lib_stk) |