/[svn]/runtime/load_xml.ml
ViewVC logotype

Diff of /runtime/load_xml.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 82 by abate, Tue Jul 10 17:04:23 2007 UTC revision 83 by abate, Tue Jul 10 17:04:45 2007 UTC
# Line 27  Line 27 
27    let curr = ref E_end_of_stream in    let curr = ref E_end_of_stream in
28    let get () =    let get () =
29      match next_event () with      match next_event () with
30          | Some (E_error exn) -> failwith (Pxp_types.string_of_exn exn)
31          | Some E_end_of_stream -> failwith "Unexpected end of XML stream"
32        | Some x -> curr := x        | Some x -> curr := x
33        | None -> () in        | None -> () in
34    
Legend:
Removed from v.82  
changed lines
  Added in v.83
CVS Admin">CVS Admin
 ViewVC Help
Powered by ViewVC 1.1.5