# HG changeset patch
# User Jan Nieuwenhuizen <janneke@gnu.org>
# Date 1300197224 -3600
# Node ID 69a20236bfeb62d09114ca98d359b5eae16af1fc
# Parent  4af12ccffd10fa47d3c6f2df78796bfcfed056bc
mingw::guile: build fix.

diff -r 4af12ccffd10 -r 69a20236bfeb patches/guile-2.0.0-mingw-dynl.patch
--- a/patches/guile-2.0.0-mingw-dynl.patch	Tue Mar 15 14:42:54 2011 +0100
+++ b/patches/guile-2.0.0-mingw-dynl.patch	Tue Mar 15 14:53:44 2011 +0100
@@ -2,14 +2,15 @@
 index 2484dda..b612709 100644
 --- a/libguile/dynl.c
 +++ b/libguile/dynl.c
-@@ -121,6 +121,17 @@ sysdep_dynl_value (const char *symb, void *handle, const char *subr)
+@@ -121,6 +121,18 @@ sysdep_dynl_value (const char *symb, void *handle, const char *subr)
    return fptr;
  }
  
 +#ifdef __MINGW32__
 +static void
-+setenv (char const *name, char const *value)
++setenv (char const *name, char const *value, int overwrite)
 +{
++  (void) overwrite;
 +  int len = strlen (value) + strlen (value) + 2;
 +  char *str = malloc (len);
 +  sprintf (str, "%s=%s", name, value);