Commit aeac89de authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-12-28 11:21:41 by afrisch] Pretty-print abstract types

Original author: afrisch
Date: 2004-12-28 11:21:41+00:00
parent ba7efa7e
......@@ -183,10 +183,12 @@ struct
include SortedList.FiniteCofinite(T)
let print = function
| Finite [] -> [ ]
| Cofinite [] -> [ fun ppf -> Format.fprintf ppf "Abstract" ]
| Finite l -> List.map (fun x ppf -> Format.fprintf ppf "!%s" x) l
| Cofinite _ -> assert false
| Cofinite l ->
[ fun ppf ->
Format.fprintf ppf "@[Abstract";
List.iter (fun x -> Format.fprintf ppf " \\@ !%s" x) l;
Format.fprintf ppf "@]" ]
end
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment