Commit 692deac3 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2002-11-07 17:33:20+00:00
parent 67e8d2e5
......@@ -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
......
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