Parent Directory | Revision Log | Patch
revision 1.3 by spiralvoice, Thu Jul 7 00:25:46 2005 UTC | revision 1.4 by spiralvoice, Fri Dec 2 12:02:36 2005 UTC | |
---|---|---|
# | Line 105 let _ = | Line 105 let _ = |
105 | match e with | match e with |
106 | Unix.Unix_error (e, f, arg) -> | Unix.Unix_error (e, f, arg) -> |
107 | Printf.sprintf "%s failed%s: %s" f (if arg = "" then "" else | Printf.sprintf "%s failed%s: %s" f (if arg = "" then "" else |
108 | "on " ^ arg) (Unix.error_message e) | " on " ^ arg) (Unix.error_message e) |
109 | | _ -> raise e | | _ -> raise e |
110 | ) | ) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |