summaryrefslogtreecommitdiff
path: root/libguile/filesys.c
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1996-09-28 19:40:54 +0000
committerGary Houston <ghouston@arglist.com>1996-09-28 19:40:54 +0000
commitdbece3a2044c38c7a9c18014cf8d9162d2787b62 (patch)
treea0826f6a8bbbc42e087137171ed69ece193a0baa /libguile/filesys.c
parent5552355a7bf0e34dd9eee54c7384114295b96d7a (diff)
downloadguile-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.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);