diff options
Diffstat (limited to 'library')
-rw-r--r-- | library/declaremods.ml | 8 | ||||
-rw-r--r-- | library/summary.ml | 8 |
2 files changed, 8 insertions, 8 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 *) diff --git a/library/summary.ml b/library/summary.ml index af5af37f1..a31f61c31 100644 --- a/library/summary.ml +++ b/library/summary.ml @@ -36,12 +36,12 @@ let internal_declare_summary sumname sdecl = let declare_summary sumname decl = internal_declare_summary (sumname^"-SUMMARY") decl -type frozen = Dyn.t Stringmap.t +type frozen = Dyn.t String.Map.t let freeze_summaries () = - let m = ref Stringmap.empty in + let m = ref String.Map.empty in Hashtbl.iter - (fun id decl -> m := Stringmap.add id (decl.freeze_function()) !m) + (fun id decl -> m := String.Map.add id (decl.freeze_function()) !m) summaries; !m @@ -49,7 +49,7 @@ let freeze_summaries () = let unfreeze_summaries fs = Hashtbl.iter (fun id decl -> - try decl.unfreeze_function (Stringmap.find id fs) + try decl.unfreeze_function (String.Map.find id fs) with Not_found -> decl.init_function()) summaries |