structure of Run.compute + pretty-printing (run+tree with preorder)

[tatoo.git] / src / stateSet.ml

diff --git a/src/stateSet.ml b/src/stateSet.ml
index 47ad460..082ac8e 100644 (file)
--- a/src/stateSet.ml
+++ b/src/stateSet.ml
@@ -18,5 +18,10 @@ open Format
 include Ptset.Make (Hcons.PosInt)
 
 let print ppf s =
-  fprintf ppf "{ %a }"
-    (Pretty.print_list ~sep:" " (State.print)) (elements 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
+