[r2006-03-11 17:07:00 by afrisch] Empty log message

Original author: afrisch
Date: 2006-03-11 17:07:00+00:00

runtime/cduce_expat.ml

@@ -8,7 +8,7 @@ let load_from_file p s =
       let msg = 
 	Printf.sprintf "load_xml, file \"%s\": %s" s (Printexc.to_string exn)
       in
-      raise (Location.Generic msg)
+      Value.failwith' msg
   in
   let rec loop () =
     let n = input ic buf 0 buflen in