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

Fix minor problem with Var.Set.print

parent 9c70e7b8
......@@ -53,7 +53,9 @@ module Set = struct
aux ppf (elements s)
let dump ppf s = aux_print ";" dump ppf s
let print ppf s = aux_print ";" print ppf
let print ppf s = aux_print ";" print ppf s
let is_empty s = equal s empty
let from_list l = List.fold_left (fun acc x -> add x acc) empty l
module Make (X : Custom.T) = struct
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