Full implem of BU_over_Max and TP_max (to be tested) + my.xml from thesis + stuffs...

[tatoo.git] / src / stateSet.ml

diff --git a/src/stateSet.ml b/src/stateSet.ml
index b97be4e..2a9e283 100644 (file)
--- 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
+  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
+    fprintf ppf "{%a}" p_set s