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