summaryrefslogtreecommitdiff
path: root/libguile/filesys.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/filesys.c')
-rw-r--r--libguile/filesys.c10
1 files changed, 8 insertions, 2 deletions
diff --git a/libguile/filesys.c b/libguile/filesys.c
index 63f93fbc4..425d70ca2 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -615,7 +615,10 @@ scm_sys_stat (fd_or_path)
}
if (rv != 0)
- scm_syserror (s_sys_stat);
+ scm_syserror_msg (s_sys_stat, "%s: %S",
+ scm_listify (scm_makfrom0str (strerror (errno)),
+ fd_or_path,
+ SCM_UNDEFINED));
return scm_stat2scm (&stat_temp);
}
@@ -1180,7 +1183,10 @@ scm_sys_lstat(str)
SCM_ASSERT(SCM_NIMP(str) && SCM_STRINGP(str), str, (char *)SCM_ARG1, s_sys_lstat);
SCM_SYSCALL(rv = lstat(SCM_CHARS(str), &stat_temp));
if (rv != 0)
- scm_syserror (s_sys_lstat);
+ scm_syserror_msg (s_sys_lstat, "%s: %S",
+ scm_listify (scm_makfrom0str (strerror (errno)),
+ str,
+ SCM_UNDEFINED));
return scm_stat2scm(&stat_temp);
#else
scm_sysmissing (s_sys_lstat);