X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2FstateSet.ml;h=2a9e2836172a9cb01edcec6b647a6ef6cdee76a3;hb=refs%2Ftags%2FCore%2BFS%2BSelf_tested;hp=082ac8ebbf45d9e5a8ac4df11749ddc6b0f66bcf;hpb=ce22e0dd0d0dbb234bc965feb14ab8f250be2da4;p=tatoo.git

diff --git a/src/stateSet.ml b/src/stateSet.ml
index 082ac8e..2a9e283 100644
--- a/src/stateSet.ml
+++ b/src/stateSet.ml
@@ -18,10 +18,10 @@ open Format
 include Ptset.Make (Hcons.PosInt)
 
 let print ppf s =
-  let p_set ppf s =
-    if is_empty s
-    then fprintf ppf "ø"
-    else
-      (Pretty.print_list ~sep:" " (State.print)) ppf (elements s) in
-  fprintf ppf "{ %a }" p_set s
+  if is_empty s
+  then fprintf ppf "ø"
+  else
+    let p_set ppf s =
+      (Pretty.print_list ~sep:"," (State.print)) ppf (elements s) in
+    fprintf ppf "{%a}" p_set s