From dbece3a2044c38c7a9c18014cf8d9162d2787b62 Mon Sep 17 00:00:00 2001 From: Gary Houston Date: Sat, 28 Sep 1996 19:40:54 +0000 Subject: * 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). --- libguile/filesys.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'libguile/filesys.c') 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); -- cgit v1.2.3