[r2002-11-07 17:33:20 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-07 17:33:20+00:00

runtime/load_xml.ml

@@ -27,6 +27,8 @@ let run s =
   let curr = ref E_end_of_stream in
   let get () =
     match next_event () with 
+      | Some (E_error exn) -> failwith (Pxp_types.string_of_exn exn)
+      | Some E_end_of_stream -> failwith "Unexpected end of XML stream"
       | Some x -> curr := x 
       | None -> () in