mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-13 17:20:21 +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.
This commit is contained in:
Kevin Ryde 2004-07-31 01:12:24 +00:00
parent 4af3c6f17c
commit fd08c23657
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/fports.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2004 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public * modify it under the terms of the GNU Lesser General Public
@ -336,7 +336,7 @@ SCM_DEFINE (scm_open_file, "open-file", 2, 0, 0,
int en = errno; int en = errno;
SCM_SYSERROR_MSG ("~A: ~S", SCM_SYSERROR_MSG ("~A: ~S",
scm_cons (scm_makfrom0str (strerror (en)), scm_cons (scm_strerror (scm_from_int (en)),
scm_cons (filename, SCM_EOL)), en); scm_cons (filename, SCM_EOL)), en);
} }
port = scm_fdes_to_port (fdes, md, filename); port = scm_fdes_to_port (fdes, md, filename);