[r2005-07-05 15:46:03 by afrisch] Empty log message

Original author: afrisch
Date: 2005-07-05 15:46:03+00:00

types/compunit.ml

@@ -43,6 +43,6 @@ let register c s =
 		"Collision on descriptors for CDuce units: %s and %s"
 		(Hashtbl.find ctbl c) s
 	     );
-  Printf.eprintf "Register %s\n" s;
+(*  Printf.eprintf "Register %s\n" s; *)
   Hashtbl.add ctbl c s