Mercurial > gub

comparison patches/guile-2.0.0-mingw-dynl.patch @ 6493:a753f2b56688

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
guile: bump to 2.0
author Jan Nieuwenhuizen <janneke@gnu.org>
date Tue, 15 Mar 2011 14:13:15 +0100
parents
children e0f873fa6093
comparison
equal deleted inserted replaced
6492:5bab80dd593a 6493:a753f2b56688
1 diff --git a/libguile/dynl.c b/libguile/dynl.c
2 index 2484dda..b612709 100644
3 --- a/libguile/dynl.c
4 +++ b/libguile/dynl.c
5 @@ -121,6 +121,17 @@ sysdep_dynl_value (const char *symb, void *handle, const char *subr)
6 return fptr;
7 }
8
9 +#ifdef __MINGW32__
10 +static void
11 +setenv (char const *name, char const *value)
12 +{
13 + int len = strlen (value) + strlen (value) + 2;
14 + char *str = malloc (len);
15 + sprintf (str, "%s=%s", name, value);
16 + putenv (str);
17 +}
18 +#endif /* __MINGW32__ */
19 +
20 /* Augment environment variable VARIABLE with VALUE, assuming VARIABLE
21 is a path kind of variable. */
22 static void