diff options
author | Gary Houston <ghouston@arglist.com> | 1996-09-28 19:40:54 +0000 |
---|---|---|
committer | Gary Houston <ghouston@arglist.com> | 1996-09-28 19:40:54 +0000 |
commit | dbece3a2044c38c7a9c18014cf8d9162d2787b62 (patch) | |
tree | a0826f6a8bbbc42e087137171ed69ece193a0baa /libguile/filesys.c | |
parent | 5552355a7bf0e34dd9eee54c7384114295b96d7a (diff) | |
download | guile-dbece3a2044c38c7a9c18014cf8d9162d2787b62.tar.gz |
* strings.c, strings.h: (scm_makfrom0str, scm_makefrom0str_opt:
declare the char * to be const. Avoids a warning in rgx.c.
* ports.h: spelling fix.
* filesys.c (scm_sys_stat, scm_sys,lstat): include file name in
error messages.
* load.c (scm_sys_try_load_path): throw an error if file not found
(like it says it in NEWS).
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); |