mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +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 #define FUNC_NAME s_scm_mkstemp
{ {
char *c_tmpl; 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)); SCM_SYSCALL (rv = mkstemp (c_tmpl));
eno = errno; scm_i_string_stop_writing ();
free (c_tmpl);
errno = eno;
if (rv == -1) if (rv == -1)
SCM_SYSERROR; SCM_SYSERROR;
return scm_fdes_to_port (rv, "w+", tmpl); return scm_fdes_to_port (rv, "w+", tmpl);