don't autocompile snarfing m4 docs

[bpt/guile.git] / module / ice-9 / networking.scm

diff --git a/module/ice-9/networking.scm b/module/ice-9/networking.scm
index c021882..9a30fc5 100644 (file)
--- a/module/ice-9/networking.scm
+++ b/module/ice-9/networking.scm
@@ -17,6 +17,9 @@
 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 ;;;; 
 
+(eval-when (compile)
+  (set-current-module (resolve-module '(guile))))
+
 (define (gethostbyaddr addr) (gethost addr))
 (define (gethostbyname name) (gethost name))