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, 4 insertions, 6 deletions
diff --git a/libguile/filesys.c b/libguile/filesys.c
index eb93ee507..3ffbd76d2 100644
--- a/libguile/filesys.c
+++ b/libguile/filesys.c
@@ -529,11 +529,10 @@ An integer representing the access permission bits.
{
int en = errno;
- scm_syserror_msg (FUNC_NAME, "~A: ~S",
+ SCM_SYSERROR_MSG ("~A: ~S",
scm_listify (scm_makfrom0str (strerror (errno)),
object,
- SCM_UNDEFINED),
- en);
+ SCM_UNDEFINED), en);
}
return scm_stat2scm (&stat_temp);
}
@@ -1179,11 +1178,10 @@ file it points to. @var{path} must be a string.")
{
int en = errno;
- scm_syserror_msg (FUNC_NAME, "~A: ~S",
+ SCM_SYSERROR_MSG ("~A: ~S",
scm_listify (scm_makfrom0str (strerror (errno)),
str,
- SCM_UNDEFINED),
- en);
+ SCM_UNDEFINED), en);
}
return scm_stat2scm(&stat_temp);
}