status,()) res in
status
with
- HExtlib.Localized (_,exn) ->
- prerr_endline (Printexc.to_string exn); assert false
+ HExtlib.Localized (_,exn)
+ | exn ->
+ prerr_endline (Printexc.to_string exn); assert false
let do_if_ocaml_set f status =
if try ignore (Helm_registry.get "extract_ocaml"); true
List.map (fun uri -> Filename.basename (NUri.string_of_uri uri)) uris in
let status,cmds = map_status status Ocaml.pp_open fnames in
List.iter (print_ppcmds status ~in_ml:true) cmds;
+ let status,cmds = map_status status Ocaml.pp_open fnames in
List.iter (print_ppcmds status ~in_ml:false) cmds;
status
) status