aboutsummaryrefslogtreecommitdiff
path: root/printing/printer.ml
diff options
context:
space:
mode:
authorppedrot2012-12-14 10:56:41 +0000
committerppedrot2012-12-14 10:56:41 +0000
commit9a0c61b81a2d9c0024b20a6c7ad8af01026739b0 (patch)
tree36d6f581d692180f12d52f872da4d35662aee2ab /printing/printer.ml
parent9330bf650ca602884c5c4c69c2fb3e94ee32838b (diff)
Moved Intset and Intmap to Int namespace.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16067 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'printing/printer.ml')
-rw-r--r--printing/printer.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/printer.ml b/printing/printer.ml
index a5f884d46c..4f09460d8d 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -336,13 +336,13 @@ let emacs_print_dependent_evars sigma seeds =
let evars () =
let evars = Evarutil.gather_dependent_evars sigma seeds in
let evars =
- Intmap.fold begin fun e i s ->
+ Int.Map.fold begin fun e i s ->
let e' = str (string_of_existential e) in
match i with
| None -> s ++ str" " ++ e' ++ str " open,"
| Some i ->
s ++ str " " ++ e' ++ str " using " ++
- Intset.fold begin fun d s ->
+ Int.Set.fold begin fun d s ->
str (string_of_existential d) ++ str " " ++ s
end i (str ",")
end evars (str "")