Parent Directory | Revision Log | Patch
revision 1.23 by spiralvoice, Fri Oct 28 08:21:49 2005 UTC | revision 1.24 by spiralvoice, Fri Dec 2 12:02:36 2005 UTC | |
---|---|---|
# | Line 641 let _ = | Line 641 let _ = |
641 | List.iter (fun t -> t.dump_info buf) !closed_tasks; | List.iter (fun t -> t.dump_info buf) !closed_tasks; |
642 | ); | ); |
643 | ||
Printexc2.register_exn (fun e -> | ||
match e with | ||
Unix.Unix_error (e, f, arg) -> | ||
Printf.sprintf "%s failed%s: %s" f (if arg = "" then "" else | ||
"on " ^ arg) (Unix.error_message e) | ||
| _ -> raise e | ||
); | ||
644 | add_timer 300. (fun t -> | add_timer 300. (fun t -> |
645 | reactivate_timer t; | reactivate_timer t; |
646 | if !debug then | if !debug then |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |