Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv5034/scsh
Modified Files:
network.scm
Log Message:
Removed forgotten cig stuff.
Index: network.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/network.scm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** network.scm 2001/08/08 11:54:04 1.20
--- network.scm 2001/08/08 12:53:24 1.21
***************
*** 6,26 ****
;;; 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
--- 6,9 ----
|