[r2005-01-11 06:01:33 by afrisch] Empty log message

Original author: afrisch
Date: 2005-01-11 06:01:33+00:00

runtime/cduce_expat.ml

@@ -32,10 +32,13 @@ let load_expat s =
   with Expat.Expat_error e -> 
     let line = Expat.get_current_line_number p 
     and col  = Expat.get_current_column_number p in
+    let src = match s with
+      | Url.Url s -> ""
+      | Url.Filename s -> Printf.sprintf " file \"%s\"," s in
     let msg =
       Printf.sprintf
-	"load_xml, file \"%s\", at line %i, column %i: %s"
-	s 
+	"load_xml,%s at line %i, column %i: %s"
+	src
 	(Expat.get_current_line_number p)
 	(Expat.get_current_column_number p)
 	(Expat.xml_error_to_string e)