[r2005-02-22 00:46:20 by afrisch] New translation for types

Original author: afrisch
Date: 2005-02-22 00:46:20+00:00

typing/typer.ml

@@ -1736,10 +1736,8 @@ let get_schema uri =
     List.iter (* Schema types -> CDuce types *)
       (fun type_def ->
          let name = Schema_common.name_of_type_definition type_def in
-         log_schema_component "type" uri name ();
          let cd_type = Schema_converter.cd_type_of_type_def ~schema type_def in
-	 Format.fprintf Format.std_formatter
-	  "Done@.";
+         log_schema_component "type" uri name cd_type;
          Hashtbl.add !schema_types (uri, name) cd_type)
       schema.Schema_types.types;
     List.iter (* Schema attributes -> CDuce types *)