1162 |
|
|
1163 |
SCM_VALIDATE_STRING (1, str); |
SCM_VALIDATE_STRING (1, str); |
1164 |
|
|
1165 |
|
#ifndef __MINGW32__ |
1166 |
if (strchr (SCM_STRING_CHARS (str), '=') == NULL) |
if (strchr (SCM_STRING_CHARS (str), '=') == NULL) |
1167 |
{ |
{ |
1168 |
/* No '=' in argument means we should remove the variable from |
/* No '=' in argument means we should remove the variable from |
1171 |
unsetenv (SCM_STRING_CHARS (str)); |
unsetenv (SCM_STRING_CHARS (str)); |
1172 |
} |
} |
1173 |
else |
else |
1174 |
|
#endif |
1175 |
{ |
{ |
1176 |
/* must make a new copy to be left in the environment, safe from gc. */ |
/* must make a new copy to be left in the environment, safe from gc. */ |
1177 |
ptr = scm_malloc (SCM_STRING_LENGTH (str) + 1); |
ptr = scm_malloc (SCM_STRING_LENGTH (str) + 1); |