summaryrefslogtreecommitdiff
path: root/libguile/error.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-02-02 21:58:04 +0100
committerLudovic Courtès <ludo@gnu.org>2012-02-02 21:58:04 +0100
commitbb796c463022df11149549beb598efde2b671e37 (patch)
tree9c17a325969769c03ca84f37466fa4197dd4ab4b /libguile/error.c
parent8d1544f66e20f191d3082cf0b0cb34bd8eff0ee1 (diff)
downloadguile-bb796c463022df11149549beb598efde2b671e37.tar.gz
Fix `SCM_I_ERROR' definition for MinGW without networking.
* libguile/error.c (SCM_I_ERROR)[__MINGW32__]: Conditionalize on `HAVE_NETWORKING'.
Diffstat (limited to 'libguile/error.c')
-rw-r--r--libguile/error.c7
1 files 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))