[r2003-06-13 16:15:38 by cvscast] get rid of ";;"

Original author: cvscast
Date: 2003-06-13 16:15:38+00:00

tools/validate.ml

 
 (* XML Schema validator *)
 
-open Printf ;;
-open Pxp_document ;;
-open Schema_types ;;
+open Printf
+open Pxp_document
+open Schema_types
 
 let die_usage () =
   prerr_endline
     "Usage:   validate <schema_document> [ <instance_document> ...  ]";
   exit 1
-;;
 
-let schema_file = try Sys.argv.(1) with Invalid_argument _ -> die_usage () ;;
+let schema_file = try Sys.argv.(1) with Invalid_argument _ -> die_usage ()
 
 let main () =
   let schema_doc = Schema_xml.pxp_tree_of schema_file in
@@ -44,9 +43,8 @@ let main () =
       print_endline (sprintf "Validation error on '%s': %s" Sys.argv.(i) msg);
       flush stdout)
   done
-;;
 
-main () ;;
+let _ = main ()
 
 (* PROVE VARIE *)
 (*