/[mldonkey]/mldonkey/src/utils/cdk/printexc2.ml
ViewVC logotype

Diff of /mldonkey/src/utils/cdk/printexc2.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    )    )

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26