diff options
Diffstat (limited to 'libguile/filesys.c')
-rw-r--r-- | libguile/filesys.c | 10 |
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); |