Commit a01634b4 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: afrisch
Date: 2006-03-11 17:07:00+00:00
parent 1f1b3355
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment