From db5116e44ab222754e1f61cd680604603277d246 Mon Sep 17 00:00:00 2001 From: mainzelm Date: Wed, 8 Aug 2001 12:53:24 +0000 Subject: [PATCH] Removed forgotten cig stuff. --- scsh/network.scm | 17 ----------------- 1 file changed, 17 deletions(-) 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 " - "#include " - "" - "/* 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 ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-