Pretty printing of the disambiguation environment no longer ends in \n.

diff --git a/helm/matita/matitaSync.ml b/helm/matita/matitaSync.ml
index 4df2ab7fbec0a41d0973feebf1cbed0cfb0cc658..2547bbdfc1cbab499f2053dbf9326d476ab962a4 100644 (file)
--- a/helm/matita/matitaSync.ml
+++ b/helm/matita/matitaSync.ml
@@ -49,9 +49,12 @@ let alias_diff ~from status =
 let set_proof_aliases status aliases =
  let new_status = {status with aliases = aliases } in
  let diff = alias_diff ~from:status new_status in
- let moo_content_rev =
-  DisambiguatePp.pp_environment diff ::
-   status.moo_content_rev in
+ let textual_diff =
+  if DisambiguateTypes.Environment.is_empty diff then
+   ""
+  else
+   DisambiguatePp.pp_environment diff ^ "\n" in
+ let moo_content_rev = textual_diff :: status.moo_content_rev in
  {new_status with moo_content_rev = moo_content_rev}
   
 (** given a uri and a type list (the contructors types) builds a list of pairs

diff --git a/helm/ocaml/cic_disambiguation/disambiguatePp.ml b/helm/ocaml/cic_disambiguation/disambiguatePp.ml
index 1d36df44d0c191346f0614b7f355f34f16b9bdf2..decaa5f5c6e9a8b13f2ecba403a9412d2d3970a5 100644 (file)
--- a/helm/ocaml/cic_disambiguation/disambiguatePp.ml
+++ b/helm/ocaml/cic_disambiguation/disambiguatePp.ml
@@ -42,6 +42,4 @@ let pp_environment env =
         s :: acc)
       env []
   in
-  String.concat "\n" (List.sort compare aliases) ^
-   (if aliases = [] then "" else "\n")
-
+  String.concat "\n" (List.sort compare aliases)