From d9f9673d90371ead668863221c1202de49ab1782 Mon Sep 17 00:00:00 2001 From: ppedrot Date: Fri, 14 Dec 2012 11:05:35 +0000 Subject: 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 --- library/declaremods.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'library/declaremods.ml') 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 *) -- cgit v1.2.3