Commit 7ddb4ada authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

error.d: FEcannot_open: improve error message

parent f0afa57b
......@@ -234,9 +234,17 @@ FEreader_error(const char *s, cl_object stream, int narg, ...)
void
FEcannot_open(cl_object fn)
{
cl_error(3, @'file-error', @':pathname', fn);
FEcannot_open(cl_object file)
{
cl_object c_error = _ecl_strerror(errno);
si_signal_simple_error
(6, @'file-error', /* condition */
ECL_NIL, /* continuable */
ecl_make_constant_base_string("Cannot open ~S.~%C library error: ~A",-1), /* format */
cl_list(2, file, c_error), /* format args */
@':pathname', /* file-error options */
file);
_ecl_unexpected_return();
}
void
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment