mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

(scm_mkstemp): Correction to new locale_string stuff, need

Browse source 
to modify the input string.
This commit is contained in:
Kevin Ryde 2004-08-20 01:32:36 +00:00
parent 61d6ed68a1
commit 71978ac9f6
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/posix.c
View file

@ -1136,13 +1136,12 @@ SCM_DEFINE (scm_mkstemp, "mkstemp!", 1, 0, 0,
#define FUNC_NAME s_scm_mkstemp
{
char *c_tmpl;
int rv, eno;
int rv;
c_tmpl = scm_to_locale_string (tmpl);
SCM_VALIDATE_STRING (SCM_ARG1, tmpl);
c_tmpl = scm_i_string_writable_chars (tmpl);
SCM_SYSCALL (rv = mkstemp (c_tmpl));
eno = errno;
free (c_tmpl);
errno = eno;
scm_i_string_stop_writing ();
if (rv == -1)
SCM_SYSERROR;
return scm_fdes_to_port (rv, "w+", tmpl);