Attachment #38523 for bug #62277

Lines 1213-1218 Link Here

(-)libguile/posix.c.sav (+7 lines)
1213	SCM_MEMORY_ERROR;	1213	SCM_MEMORY_ERROR;
1214	strncpy (ptr, SCM_STRING_CHARS (str), SCM_STRING_LENGTH (str));	1214	strncpy (ptr, SCM_STRING_CHARS (str), SCM_STRING_LENGTH (str));
1215	ptr[SCM_STRING_LENGTH (str)] = 0;	1215	ptr[SCM_STRING_LENGTH (str)] = 0;
		1216	#if defined(macosx)
		1217	if (!strchr(ptr, '=')) {
		1218	unsetenv(ptr);
		1219	rv = 0;
		1220	}
		1221	else
		1222	#endif
1216	rv = putenv (ptr);	1223	rv = putenv (ptr);
1217	if (rv < 0)	1224	if (rv < 0)
1218	SCM_SYSERROR;	1225	SCM_SYSERROR;

Return to bug 62277