HCoop
/
bpt
/
guile.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7e88be2
)
(scm_putenv): Free temporary ptr in mingw unset.
author
Kevin Ryde
<user42@zip.com.au>
Wed, 11 Jun 2003 23:15:02 +0000
(23:15 +0000)
committer
Kevin Ryde
<user42@zip.com.au>
Wed, 11 Jun 2003 23:15:02 +0000
(23:15 +0000)
libguile/posix.c
patch
|
blob
|
blame
|
history
diff --git
a/libguile/posix.c
b/libguile/posix.c
index
4ae59a7
..
abd4d91
100644
(file)
--- a/
libguile/posix.c
+++ b/
libguile/posix.c
@@
-1157,7
+1157,7
@@
SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0,
"The return value is unspecified.")
#define FUNC_NAME s_scm_putenv
{
- int rv;
+ int rv
, e
;
char *ptr;
SCM_VALIDATE_STRING (1, str);
@@
-1177,6
+1177,7
@@
SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0,
ptr[SCM_STRING_LENGTH (str)] = '=';
ptr[SCM_STRING_LENGTH (str) + 1] = 0;
rv = putenv (ptr);
+ e = errno; free (ptr); errno = e;
if (rv < 0)
SCM_SYSERROR;
#endif