Change the way struct type des are printed.

e.g., instead of

        type toto = toto { ... };

we now print

        type toto = struct { ... };

src/compiledDataDump.ml

@@ -55,7 +55,7 @@ and string_def_of_type_eff = function
 	      None -> ""
 	    | Some ce -> " (" ^ (string_of_const_eff ce) ^ ")"
       in
-	(Ident.string_of_long name)^
+        "struct " ^
 	  (List.fold_left (f "; ")  (f "" " {" (List.hd fl)) (List.tl fl)) ^ "}"
 	
   | Any -> "a"