1157 |
"The return value is unspecified.") |
"The return value is unspecified.") |
1158 |
#define FUNC_NAME s_scm_putenv |
#define FUNC_NAME s_scm_putenv |
1159 |
{ |
{ |
1160 |
int rv; |
int rv, e; |
1161 |
char *ptr; |
char *ptr; |
1162 |
|
|
1163 |
SCM_VALIDATE_STRING (1, str); |
SCM_VALIDATE_STRING (1, str); |
1177 |
ptr[SCM_STRING_LENGTH (str)] = '='; |
ptr[SCM_STRING_LENGTH (str)] = '='; |
1178 |
ptr[SCM_STRING_LENGTH (str) + 1] = 0; |
ptr[SCM_STRING_LENGTH (str) + 1] = 0; |
1179 |
rv = putenv (ptr); |
rv = putenv (ptr); |
1180 |
|
e = errno; free (ptr); errno = e; |
1181 |
if (rv < 0) |
if (rv < 0) |
1182 |
SCM_SYSERROR; |
SCM_SYSERROR; |
1183 |
#endif |
#endif |