From bb796c463022df11149549beb598efde2b671e37 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 2 Feb 2012 21:58:04 +0100
Subject: [PATCH] Fix `SCM_I_ERROR' definition for MinGW without networking.

* libguile/error.c (SCM_I_ERROR)[__MINGW32__]: Conditionalize on
  `HAVE_NETWORKING'.
---
 libguile/error.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/libguile/error.c b/libguile/error.c
index b4ed7d055..790ed0571 100644
--- a/libguile/error.c
+++ b/libguile/error.c
@@ -1,5 +1,6 @@
-/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2004, 2006, 2010 Free Software Foundation, Inc.
- * 
+/* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2004, 2006, 2010,
+ *   2012 Free Software Foundation, Inc.
+ *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public License
  * as published by the Free Software Foundation; either version 3 of
@@ -99,7 +100,7 @@ SCM_DEFINE (scm_error_scm, "scm-error", 5, 0, 0,
 }
 #undef FUNC_NAME
 
-#ifdef __MINGW32__
+#if defined __MINGW32__ && defined HAVE_NETWORKING
 # include "win32-socket.h"
 # define SCM_I_STRERROR(err) \
     ((err >= WSABASEERR) ? scm_i_socket_strerror (err) : strerror (err))