summaryrefslogtreecommitdiff
path: root/libguile/posix.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/posix.c')
-rw-r--r--libguile/posix.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/posix.c b/libguile/posix.c
index b7b1b27b4..2269bc365 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1162,6 +1162,7 @@ SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0,
SCM_VALIDATE_STRING (1, str);
+#ifndef __MINGW32__
if (strchr (SCM_STRING_CHARS (str), '=') == NULL)
{
/* No '=' in argument means we should remove the variable from
@@ -1170,6 +1171,7 @@ SCM_DEFINE (scm_putenv, "putenv", 1, 0, 0,
unsetenv (SCM_STRING_CHARS (str));
}
else
+#endif
{
/* must make a new copy to be left in the environment, safe from gc. */
ptr = scm_malloc (SCM_STRING_LENGTH (str) + 1);