diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-14 11:05:35 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-12-14 11:05:35 +0000 |
commit | d9f9673d90371ead668863221c1202de49ab1782 (patch) | |
tree | 3fca5420ce4404972f87ea05d2000e3fd8e89017 /library/declaremods.ml | |
parent | 9a0c61b81a2d9c0024b20a6c7ad8af01026739b0 (diff) |
Moved Stringset and Stringmap to String namespace.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16068 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library/declaremods.ml')
-rw-r--r-- | library/declaremods.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/declaremods.ml b/library/declaremods.ml index 4adf9d02d..b8dd671cf 100644 --- a/library/declaremods.ml +++ b/library/declaremods.ml @@ -27,19 +27,19 @@ type 'a module_signature = type scope_subst = (string * string) list -let scope_subst = ref (Stringmap.empty : string Stringmap.t) +let scope_subst = ref (String.Map.empty : string String.Map.t) let add_scope_subst sc sc' = - scope_subst := Stringmap.add sc sc' !scope_subst + scope_subst := String.Map.add sc sc' !scope_subst let register_scope_subst scl = List.iter (fun (sc1,sc2) -> add_scope_subst sc1 sc2) scl let subst_scope sc = - try Stringmap.find sc !scope_subst with Not_found -> sc + try String.Map.find sc !scope_subst with Not_found -> sc let reset_scope_subst () = - scope_subst := Stringmap.empty + scope_subst := String.Map.empty (** Which inline annotations should we honor, either None or the ones whose level is less or equal to the given integer *) |