diff --git a/scsh/network.scm b/scsh/network.scm
index f7fdf6b..5417632 100644
--- a/scsh/network.scm
+++ b/scsh/network.scm
@@ -5,23 +5,6 @@
 
 ;;; Scheme48 implementation.
 
-(foreign-init-name "network")
-
-(foreign-source
- "#include <sys/types.h>"
- "#include <sys/socket.h>"
- ""
- "/* Make sure foreign-function stubs interface to the C funs correctly: */"
- "#include \"network1.h\""
- ""
- "extern int errno;"
- "extern int h_errno;"
- ""
- "#define errno_on_zero_or_false(x) ((x) ? S48_FALSE : s48_enter_fixnum(errno))"
- "#define errno_or_false(x) (((x) == -1) ? s48_enter_fixnum(errno) : S48_FALSE)"
- "#define False_on_zero(x) ((x) ? s48_enter_fixnum(x) : S48_FALSE)"
- "" )
-
 ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 ;;; High Level Prototypes
 ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-