mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* error.c (scm_strerror): Use scm_i_misc_mutex around strerror since

Browse source 
it's not thread safe.
	(scm_syserror): Use scm_strerror rather than SCM_I_STRERROR, to take
	advantage of this.
	* fports.c (scm_open_file): Use scm_strerror likewise.
	* filesys.c (scm_stat, scm_lstat): Ditto.
This commit is contained in:
Kevin Ryde 2004-07-31 01:13:29 +00:00
parent fd08c23657
commit 3572cd6b8f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/filesys.c
View file

@ -640,7 +640,7 @@ SCM_DEFINE (scm_stat, "stat", 1, 0, 0,
int en = errno;
SCM_SYSERROR_MSG ("~A: ~S",
scm_list_2 (scm_makfrom0str (strerror (errno)),
scm_list_2 (scm_strerror (scm_from_int (en)),
object),
en);
}
@ -1393,7 +1393,7 @@ SCM_DEFINE (scm_lstat, "lstat", 1, 0, 0,
int en = errno;
SCM_SYSERROR_MSG ("~A: ~S",
scm_list_2 (scm_makfrom0str (strerror (errno)), str),
scm_list_2 (scm_strerror (scm_from_int (en)), str),
en);
}
return scm_stat2scm(&stat_temp);