/* Generated from tcp.scm by the Chicken compiler
   2004-07-19 23:13
   Version 1, Build 62 - linux-unix-gnu-x86
   command line: tcp.scm -quiet -debug-level 0 -optimize-level 2 -unsafe -feature unsafe -include-path . -output-file utcp.c -explicit-use
   unit: tcp
*/

#include "chicken.h"

#include <errno.h>
#ifdef _WIN32
# include <winsock2.h>
static WSADATA wsa;
# define fcntl(a, b, c)  0
# define EWOULDBLOCK     0
#else
# include <fcntl.h>
# include <sys/types.h>
# include <sys/socket.h>
# include <sys/time.h>
# include <netinet/in.h>
# include <unistd.h>
# include <netdb.h>
# define SD_RECEIVE      0
# define SD_SEND         1
# define closesocket     close
# define INVALID_SOCKET  -1
#endif

static char addr_buffer[ 20 ];

C_externimport void C_extras_toplevel(C_word c,C_word d,C_word k) C_noret;
C_externimport void C_scheduler_toplevel(C_word c,C_word d,C_word k) C_noret;

static C_TLS C_word lf[67];


/* from f_628 in k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_return; C_cblockend
static C_word C_fcall stub161(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub161(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int socket=(int )C_unfix(C_a0);
int yes = 1; 
                      return(setsockopt(socket, SOL_SOCKET, SO_REUSEADDR, (const char *)&yes, sizeof(int)));
C_return:
#undef return

return C_r;}

/* from k564 */
#define return(x) C_cblock C_r = (((C_word)(x))); goto C_return; C_cblockend
static C_word C_fcall stub149(C_word C_buf,C_word C_a0,C_word C_a1) C_regparm;
C_regparm static C_word C_fcall stub149(C_word C_buf,C_word C_a0,C_word C_a1){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * saddr=(void * )C_data_pointer_or_null(C_a0);
unsigned short port=(unsigned short )(unsigned short)C_unfix(C_a1);
struct sockaddr_in *addr = (struct sockaddr_in *)saddr;memset(addr, 0, sizeof(struct sockaddr_in));addr->sin_family = AF_INET;addr->sin_port = htons(port);addr->sin_addr.s_addr = htonl(INADDR_ANY);
C_return:
#undef return

return C_r;}

/* from k469 in ##net#gethostaddr in k435 in k354 in k351 in k348 */
#define return(x) C_cblock C_r = (C_mk_bool((x))); goto C_return; C_cblockend
static C_word C_fcall stub123(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2) C_regparm;
C_regparm static C_word C_fcall stub123(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
void * saddr=(void * )C_data_pointer_or_null(C_a0);
char * host=(char * )C_string_or_null(C_a1);
unsigned short port=(unsigned short )(unsigned short)C_unfix(C_a2);
struct hostent *he = gethostbyname(host);struct sockaddr_in *addr = (struct sockaddr_in *)saddr;if(he == NULL) return(0);memset(addr, 0, sizeof(struct sockaddr_in));addr->sin_family = AF_INET;addr->sin_port = htons((short)port);addr->sin_addr = *((struct in_addr *)he->h_addr);return(1);
C_return:
#undef return

return C_r;}

/* from ##net#select-write */
#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_return; C_cblockend
static C_word C_fcall stub117(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub117(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int fd=(int )C_unfix(C_a0);
fd_set out;
     struct timeval tm;
     FD_ZERO(&out);
     FD_SET(fd, &out);
     tm.tv_sec = tm.tv_usec = 0;
     if(select(fd + 1, NULL, &out, NULL, &tm) == -1) return(-1);
     else return(FD_ISSET(fd, &out) ? 1 : 0);
C_return:
#undef return

return C_r;}

/* from ##net#select in k435 in k354 in k351 in k348 */
#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_return; C_cblockend
static C_word C_fcall stub113(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub113(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int fd=(int )C_unfix(C_a0);
fd_set in;
     struct timeval tm;
     FD_ZERO(&in);
     FD_SET(fd, &in);
     tm.tv_sec = tm.tv_usec = 0;
     if(select(fd + 1, &in, NULL, NULL, &tm) == -1) return(-1);
     else return(FD_ISSET(fd, &in) ? 1 : 0);
C_return:
#undef return

return C_r;}

/* from k446 in k442 in k531 in k527 in loop in ##net#parse-host in k435 in k354 in k351 in k348 */
#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_return; C_cblockend
static C_word C_fcall stub104(C_word C_buf,C_word C_a0,C_word C_a1) C_regparm;
C_regparm static C_word C_fcall stub104(C_word C_buf,C_word C_a0,C_word C_a1){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
char * serv=(char * )C_string_or_null(C_a0);
char * proto=(char * )C_string_or_null(C_a1);
struct servent *se;
     if((se = getservbyname(serv, proto)) == NULL) return(0);
     else return(se->s_port);
C_return:
#undef return

return C_r;}

/* from ##net#startup */
#define return(x) C_cblock C_r = (C_mk_bool((x))); goto C_return; C_cblockend
static C_word C_fcall stub100(C_word C_buf) C_regparm;
C_regparm static C_word C_fcall stub100(C_word C_buf){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
#ifdef _WIN32
     return(WSAStartup(MAKEWORD(1, 1), &wsa) == 0);
#else
     return(1);
#endif
C_return:
#undef return

return C_r;}

/* from ##net#getpeername */
#define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_return; C_cblockend
static C_word C_fcall stub96(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub96(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int s=(int )C_unfix(C_a0);
struct sockaddr_in sa;unsigned char *ptr;int len = sizeof(struct sockaddr_in);if(getpeername(s, (struct sockaddr *)&sa, &len) != 0) return(NULL);ptr = (unsigned char *)&sa.sin_addr;sprintf(addr_buffer, "%d.%d.%d.%d", ptr[ 0 ], ptr[ 1 ], ptr[ 2 ], ptr[ 3 ]);return(addr_buffer);
C_return:
#undef return

return C_r;}

/* from ##net#getsockport */
#define return(x) C_cblock C_r = (C_fix((C_word)(x))); goto C_return; C_cblockend
static C_word C_fcall stub92(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub92(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int s=(int )C_unfix(C_a0);
struct sockaddr_in sa;unsigned char *ptr;int len = sizeof(struct sockaddr_in);if(getsockname(s, (struct sockaddr *)&sa, &len) != 0) return(-1);else return(ntohs(sa.sin_port));
C_return:
#undef return

return C_r;}

/* from ##net#getsockname */
#define return(x) C_cblock C_r = (C_mpointer(&C_a,(void*)(x))); goto C_return; C_cblockend
static C_word C_fcall stub87(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub87(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int s=(int )C_unfix(C_a0);
struct sockaddr_in sa;unsigned char *ptr;int len = sizeof(struct sockaddr_in);if(getsockname(s, (struct sockaddr *)&sa, &len) != 0) return(NULL);ptr = (unsigned char *)&sa.sin_addr;sprintf(addr_buffer, "%d.%d.%d.%d", ptr[ 0 ], ptr[ 1 ], ptr[ 2 ], ptr[ 3 ]);return(addr_buffer);
C_return:
#undef return

return C_r;}

/* from ##net#make-nonblocking in k354 in k351 in k348 */
#define return(x) C_cblock C_r = (C_mk_bool((x))); goto C_return; C_cblockend
static C_word C_fcall stub83(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub83(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int fd=(int )C_unfix(C_a0);
int val = fcntl(fd, F_GETFL, 0);if(val == -1) return(0);return(fcntl(fd, F_SETFL, val | O_NONBLOCK) != -1);
C_return:
#undef return

return C_r;}

/* from k411 */
static C_word C_fcall stub75(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2) C_regparm;
C_regparm static C_word C_fcall stub75(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
void * t1=(void * )C_data_pointer_or_null(C_a1);
int t2=(int )C_unfix(C_a2);
C_r=C_fix((C_word)connect(t0,t1,t2));
return C_r;}

/* from ##net#shutdown in k354 in k351 in k348 */
static C_word C_fcall stub68(C_word C_buf,C_word C_a0,C_word C_a1) C_regparm;
C_regparm static C_word C_fcall stub68(C_word C_buf,C_word C_a0,C_word C_a1){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
int t1=(int )C_unfix(C_a1);
C_r=C_fix((C_word)shutdown(t0,t1));
return C_r;}

/* from k401 */
static C_word C_fcall stub58(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3) C_regparm;
C_regparm static C_word C_fcall stub58(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
void * t1=(void * )C_data_pointer_or_null(C_a1);
int t2=(int )C_unfix(C_a2);
int t3=(int )C_unfix(C_a3);
C_r=C_fix((C_word)recv(t0,t1,t2,t3));
return C_r;}

/* from k394 */
static C_word C_fcall stub46(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3) C_regparm;
C_regparm static C_word C_fcall stub46(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2,C_word C_a3){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
void * t1=(void * )C_data_pointer_or_null(C_a1);
int t2=(int )C_unfix(C_a2);
int t3=(int )C_unfix(C_a3);
C_r=C_fix((C_word)send(t0,t1,t2,t3));
return C_r;}

/* from ##net#close in k354 in k351 in k348 */
static C_word C_fcall stub39(C_word C_buf,C_word C_a0) C_regparm;
C_regparm static C_word C_fcall stub39(C_word C_buf,C_word C_a0){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
C_r=C_fix((C_word)closesocket(t0));
return C_r;}

/* from k378 */
static C_word C_fcall stub29(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2) C_regparm;
C_regparm static C_word C_fcall stub29(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
void * t1=(void * )C_c_pointer_or_null(C_a1);
void * t2=(void * )C_c_pointer_or_null(C_a2);
C_r=C_fix((C_word)accept(t0,t1,t2));
return C_r;}

/* from ##net#listen */
static C_word C_fcall stub22(C_word C_buf,C_word C_a0,C_word C_a1) C_regparm;
C_regparm static C_word C_fcall stub22(C_word C_buf,C_word C_a0,C_word C_a1){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
int t1=(int )C_unfix(C_a1);
C_r=C_fix((C_word)listen(t0,t1));
return C_r;}

/* from k364 */
static C_word C_fcall stub13(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2) C_regparm;
C_regparm static C_word C_fcall stub13(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
void * t1=(void * )C_data_pointer_or_null(C_a1);
int t2=(int )C_unfix(C_a2);
C_r=C_fix((C_word)bind(t0,t1,t2));
return C_r;}

/* from ##net#socket in k354 in k351 in k348 */
static C_word C_fcall stub5(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2) C_regparm;
C_regparm static C_word C_fcall stub5(C_word C_buf,C_word C_a0,C_word C_a1,C_word C_a2){
C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf;
int t0=(int )C_unfix(C_a0);
int t1=(int )C_unfix(C_a1);
int t2=(int )C_unfix(C_a2);
C_r=C_fix((C_word)socket(t0,t1,t2));
return C_r;}

C_externexport void C_tcp_toplevel(C_word c,C_word t0,C_word t1) C_noret;
static void f_350(C_word c,C_word t0,C_word t1) C_noret;
static void f_353(C_word c,C_word t0,C_word t1) C_noret;
static void f_356(C_word c,C_word t0,C_word t1) C_noret;
static void f_437(C_word c,C_word t0,C_word t1) C_noret;
static void f_1298(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void f_1306(C_word c,C_word t0,C_word t1) C_noret;
static void f_1280(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void f_1290(C_word c,C_word t0,C_word t1) C_noret;
static void f_1251(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void f_1255(C_word c,C_word t0,C_word t1) C_noret;
static void f_1262(C_word c,C_word t0,C_word t1) C_noret;
static void f_1265(C_word c,C_word t0,C_word t1) C_noret;
static void f_1269(C_word c,C_word t0,C_word t1) C_noret;
static void f_1272(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_1236(C_word t0,C_word t1) C_noret;
static void f_1240(C_word c,C_word t0,C_word t1) C_noret;
static void f_1226(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void f_1234(C_word c,C_word t0,C_word t1) C_noret;
static void f_1075(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
static void f_1075r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
static void f_1079(C_word c,C_word t0,C_word t1) C_noret;
static void f_1202(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
static void f_1196(C_word c,C_word t0,C_word t1) C_noret;
static void f_1188(C_word c,C_word t0,C_word t1) C_noret;
static void f_1082(C_word c,C_word t0,C_word t1) C_noret;
static void f_1085(C_word c,C_word t0,C_word t1) C_noret;
static void f_1182(C_word c,C_word t0,C_word t1) C_noret;
static void f_1103(C_word c,C_word t0,C_word t1) C_noret;
static void f_1173(C_word c,C_word t0,C_word t1) C_noret;
static void f_1106(C_word c,C_word t0,C_word t1) C_noret;
static void f_1167(C_word c,C_word t0,C_word t1) C_noret;
static void f_1109(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_1129(C_word t0,C_word t1) C_noret;
static void f_1136(C_word c,C_word t0,C_word t1) C_noret;
static void f_1145(C_word c,C_word t0,C_word t1) C_noret;
static void f_1112(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_1090(C_word t0,C_word t1) C_noret;
static void f_1097(C_word c,C_word t0,C_word t1) C_noret;
static void f_1050(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void f_1066(C_word c,C_word t0,C_word t1) C_noret;
static void f_1057(C_word c,C_word t0,C_word t1) C_noret;
static void f_1015(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void f_1019(C_word c,C_word t0,C_word t1) C_noret;
static void f_1022(C_word c,C_word t0,C_word t1) C_noret;
static void f_1037(C_word c,C_word t0,C_word t1) C_noret;
static void f_1028(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_758(C_word t0,C_word t1,C_word t2) C_noret;
static void f_1010(C_word c,C_word t0,C_word t1) C_noret;
static void f_762(C_word c,C_word t0,C_word t1) C_noret;
static void f_765(C_word c,C_word t0,C_word t1) C_noret;
static void f_971(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_985(C_word t0,C_word t1) C_noret;
static void f_988(C_word c,C_word t0,C_word t1) C_noret;
static void f_944(C_word c,C_word t0,C_word t1) C_noret;
static void f_966(C_word c,C_word t0,C_word t1) C_noret;
static void f_957(C_word c,C_word t0,C_word t1) C_noret;
static void f_884(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_911(C_word t0,C_word t1) C_noret;
static void f_939(C_word c,C_word t0,C_word t1) C_noret;
static void f_930(C_word c,C_word t0,C_word t1) C_noret;
static void f_933(C_word c,C_word t0,C_word t1) C_noret;
static void f_907(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_888(C_word t0,C_word t1) C_noret;
static void f_771(C_word c,C_word t0,C_word t1) C_noret;
static void f_849(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_863(C_word t0,C_word t1) C_noret;
static void f_866(C_word c,C_word t0,C_word t1) C_noret;
static void f_793(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void C_fcall f_802(C_word t0,C_word t1) C_noret;
static void f_840(C_word c,C_word t0,C_word t1) C_noret;
static void f_827(C_word c,C_word t0,C_word t1) C_noret;
static void f_821(C_word c,C_word t0,C_word t1) C_noret;
static void f_774(C_word c,C_word t0,C_word t1) C_noret;
static void f_791(C_word c,C_word t0,C_word t1) C_noret;
static void f_787(C_word c,C_word t0,C_word t1) C_noret;
static void f_736(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void f_749(C_word c,C_word t0,C_word t1) C_noret;
static void f_727(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void f_640(C_word c,C_word t0,C_word t1,C_word t2,...) C_noret;
static void f_640r(C_word t0,C_word t1,C_word t2,C_word t4) C_noret;
static void C_fcall f_679(C_word t0,C_word t1) C_noret;
static void C_fcall f_674(C_word t0,C_word t1,C_word t2) C_noret;
static void C_fcall f_642(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
static void f_654(C_word c,C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
static void f_670(C_word c,C_word t0,C_word t1) C_noret;
static void f_661(C_word c,C_word t0,C_word t1) C_noret;
static void f_648(C_word c,C_word t0,C_word t1) C_noret;
static void f_635(C_word c,C_word t0,C_word t1) C_noret;
static void f_575(C_word c,C_word t0,C_word t1) C_noret;
static void f_628(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void f_627(C_word c,C_word t0,C_word t1) C_noret;
static void f_620(C_word c,C_word t0,C_word t1) C_noret;
static void f_578(C_word c,C_word t0,C_word t1) C_noret;
static void f_581(C_word c,C_word t0,C_word t1) C_noret;
static void f_608(C_word c,C_word t0,C_word t1) C_noret;
static void f_584(C_word c,C_word t0,C_word t1) C_noret;
static void f_599(C_word c,C_word t0,C_word t1) C_noret;
static void f_590(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_497(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
static void C_fcall f_506(C_word t0,C_word t1,C_word t2) C_noret;
static void f_529(C_word c,C_word t0,C_word t1) C_noret;
static void f_533(C_word c,C_word t0,C_word t1) C_noret;
static void f_444(C_word c,C_word t0,C_word t1) C_noret;
static void f_448(C_word c,C_word t0,C_word t1) C_noret;
static void f_545(C_word c,C_word t0,C_word t1) C_noret;
static void f_539(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_476(C_word t0) C_noret;
static void f_482(C_word c,C_word t0,C_word t1,C_word t2) C_noret;
static void f_491(C_word c,C_word t0,C_word t1) C_noret;
static void C_fcall f_462(C_word t0,C_word t1,C_word t2,C_word t3) C_noret;
static void f_471(C_word c,C_word t0,C_word t1) C_noret;
static C_word C_fcall f_456(C_word t0);
static C_word C_fcall f_415(C_word t0);
static C_word C_fcall f_405(C_word t0,C_word t1);
static C_word C_fcall f_388(C_word t0);
static C_word C_fcall f_358(C_word t0,C_word t1,C_word t2);

static void C_fcall trf_1236(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1236(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_1236(t0,t1);}

static void C_fcall trf_1129(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1129(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_1129(t0,t1);}

static void C_fcall trf_1090(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_1090(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_1090(t0,t1);}

static void C_fcall trf_758(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_758(void *dummy){
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
f_758(t0,t1,t2);}

static void C_fcall trf_985(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_985(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_985(t0,t1);}

static void C_fcall trf_911(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_911(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_911(t0,t1);}

static void C_fcall trf_888(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_888(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_888(t0,t1);}

static void C_fcall trf_863(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_863(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_863(t0,t1);}

static void C_fcall trf_802(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_802(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_802(t0,t1);}

static void C_fcall trf_679(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_679(void *dummy){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
f_679(t0,t1);}

static void C_fcall trf_674(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_674(void *dummy){
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
f_674(t0,t1,t2);}

static void C_fcall trf_642(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_642(void *dummy){
C_word t3=C_pick(0);
C_word t2=C_pick(1);
C_word t1=C_pick(2);
C_word t0=C_pick(3);
C_adjust_stack(-4);
f_642(t0,t1,t2,t3);}

static void C_fcall trf_497(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_497(void *dummy){
C_word t3=C_pick(0);
C_word t2=C_pick(1);
C_word t1=C_pick(2);
C_word t0=C_pick(3);
C_adjust_stack(-4);
f_497(t0,t1,t2,t3);}

static void C_fcall trf_506(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_506(void *dummy){
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
f_506(t0,t1,t2);}

static void C_fcall trf_476(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_476(void *dummy){
C_word t0=C_pick(0);
C_adjust_stack(-1);
f_476(t0);}

static void C_fcall trf_462(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall trf_462(void *dummy){
C_word t3=C_pick(0);
C_word t2=C_pick(1);
C_word t1=C_pick(2);
C_word t0=C_pick(3);
C_adjust_stack(-4);
f_462(t0,t1,t2,t3);}

static void C_fcall tr4(C_proc4 k) C_regparm C_noret;
C_regparm static void C_fcall tr4(C_proc4 k){
C_word t3=C_pick(0);
C_word t2=C_pick(1);
C_word t1=C_pick(2);
C_word t0=C_pick(3);
C_adjust_stack(-4);
(k)(4,t0,t1,t2,t3);}

static void C_fcall tr3(C_proc3 k) C_regparm C_noret;
C_regparm static void C_fcall tr3(C_proc3 k){
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
(k)(3,t0,t1,t2);}

static void C_fcall tr2(C_proc2 k) C_regparm C_noret;
C_regparm static void C_fcall tr2(C_proc2 k){
C_word t1=C_pick(0);
C_word t0=C_pick(1);
C_adjust_stack(-2);
(k)(2,t0,t1);}

static void C_fcall tr3r(C_proc3 k) C_regparm C_noret;
C_regparm static void C_fcall tr3r(C_proc3 k){
int n;
C_word *a,t3;
C_word t2=C_pick(0);
C_word t1=C_pick(1);
C_word t0=C_pick(2);
C_adjust_stack(-3);
n=C_rest_count(0);
a=C_alloc(n*3);
t3=C_restore_rest(a,n);
(k)(t0,t1,t2,t3);}

/* toplevel */
static C_TLS int toplevel_initialized=0;
static void C_fcall toplevel_trampoline(void *dummy) C_regparm C_noret;
C_regparm static void C_fcall toplevel_trampoline(void *dummy){
C_tcp_toplevel(2,C_SCHEME_UNDEFINED,C_restore);}

void C_tcp_toplevel(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
if(toplevel_initialized) C_kontinue(t1,C_SCHEME_UNDEFINED);
else C_toplevel_entry(C_text("tcp_toplevel"));
C_check_nursery_minimum(3);
if(!C_demand(3)){
C_save(t1);
C_reclaim((void*)toplevel_trampoline,NULL);}
toplevel_initialized=1;
if(!C_demand_2(668)){
C_save(t1);
C_rereclaim2(668*sizeof(C_word), 1);
t1=C_restore;}
a=C_alloc(3);
C_initialize_lf(lf,67);
lf[1]=C_string(C_heaptop,27,"too many optional arguments");
lf[8]=C_h_intern(&lf[8],17,"\003sysmake-c-string");
lf[10]=C_h_intern(&lf[10],18,"\003syscurrent-thread");
lf[11]=C_h_intern(&lf[11],12,"\003sysschedule");
lf[12]=C_h_intern(&lf[12],9,"substring");
lf[14]=C_h_intern(&lf[14],15,"\003syssignal-hook");
lf[15]=C_h_intern(&lf[15],14,"\000network-error");
lf[16]=C_h_intern(&lf[16],11,"tcp-connect");
lf[17]=C_string(C_heaptop,33,"can not compute port from service");
lf[18]=C_h_intern(&lf[18],16,"\003sysupdate-errno");
lf[19]=C_h_intern(&lf[19],10,"tcp-listen");
lf[20]=C_string(C_heaptop,22,"can not bind to socket");
lf[21]=C_string(C_heaptop,31,"getting listener host IP failed");
lf[22]=C_h_intern(&lf[22],11,"make-string");
lf[23]=C_string(C_heaptop,29,"error while setting up socket");
lf[24]=C_h_intern(&lf[24],9,"\003syserror");
lf[25]=C_string(C_heaptop,21,"can not create socket");
lf[26]=C_h_intern(&lf[26],12,"tcp-listener");
lf[27]=C_string(C_heaptop,24,"can not listen on socket");
lf[28]=C_h_intern(&lf[28],13,"tcp-listener\077");
lf[29]=C_h_intern(&lf[29],9,"tcp-close");
lf[30]=C_string(C_heaptop,24,"can not close TCP socket");
lf[31]=C_h_intern(&lf[31],15,"make-input-port");
lf[32]=C_h_intern(&lf[32],16,"make-output-port");
lf[34]=C_h_intern(&lf[34],13,"\003sysport-data");
lf[35]=C_string(C_heaptop,23,"can not write to socket");
lf[36]=C_string(C_heaptop,32,"can not close socket output port");
lf[37]=C_h_intern(&lf[37],11,"end-of-file");
lf[38]=C_h_intern(&lf[38],25,"\003systhread-block-for-i/o!");
lf[39]=C_string(C_heaptop,24,"can not read from socket");
lf[40]=C_string(C_heaptop,30,"can not check socket for input");
lf[41]=C_string(C_heaptop,31,"can not close socket input port");
lf[42]=C_string(C_heaptop,24,"can not create TCP ports");
lf[43]=C_h_intern(&lf[43],10,"tcp-accept");
lf[44]=C_string(C_heaptop,30,"could not accept from listener");
lf[45]=C_h_intern(&lf[45],17,"tcp-accept-ready\077");
lf[46]=C_string(C_heaptop,30,"can not check socket for input");
lf[47]=C_string(C_heaptop,25,"can not connect to socket");
lf[48]=C_string(C_heaptop,14,"fcntl() failed");
lf[49]=C_string(C_heaptop,25,"can not find host address");
lf[50]=C_string(C_heaptop,21,"can not create socket");
lf[51]=C_string(C_heaptop,17,"no port specified");
lf[52]=C_string(C_heaptop,3,"tcp");
lf[53]=C_h_intern(&lf[53],20,"\003systcp-port->fileno");
lf[55]=C_h_intern(&lf[55],11,"\000type-error");
lf[56]=C_string(C_heaptop,34,"bad argument type - not a TCP port");
lf[57]=C_h_intern(&lf[57],13,"tcp-addresses");
lf[58]=C_string(C_heaptop,30,"can not compute remote address");
lf[59]=C_h_intern(&lf[59],17,"\003syspeek-c-string");
lf[60]=C_string(C_heaptop,29,"can not compute local address");
lf[61]=C_h_intern(&lf[61],17,"tcp-listener-port");
lf[62]=C_string(C_heaptop,28,"can not obtain listener port");
lf[63]=C_h_intern(&lf[63],16,"tcp-abandon-port");
lf[64]=C_string(C_heaptop,26,"can not initialize Winsock");
lf[65]=C_h_intern(&lf[65],17,"register-feature!");
lf[66]=C_h_intern(&lf[66],3,"tcp");
C_register_lf(lf,67);
t2=C_mutate(&lf[0],lf[1]);
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_350,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
C_extras_toplevel(2,C_SCHEME_UNDEFINED,t3);}

/* k348 */
static void f_350(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_350,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_353,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
C_scheduler_toplevel(2,C_SCHEME_UNDEFINED,t2);}

/* k351 in k348 */
static void f_353(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_353,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_356,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
t3=*((C_word*)lf[65]+1);
((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,lf[66]);}

/* k354 in k351 in k348 */
static void f_356(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word ab[11],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_356,2,t0,t1);}
t2=C_mutate(&lf[2],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_358,tmp=(C_word)a,a+=2,tmp));
t3=C_mutate(&lf[3],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_388,tmp=(C_word)a,a+=2,tmp));
t4=C_mutate(&lf[4],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_405,tmp=(C_word)a,a+=2,tmp));
t5=C_mutate(&lf[5],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_415,tmp=(C_word)a,a+=2,tmp));
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_437,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);
if(C_truep((C_word)stub100(C_SCHEME_UNDEFINED))){
t7=t6;
f_437(2,t7,C_SCHEME_UNDEFINED);}
else{
t7=*((C_word*)lf[14]+1);
((C_proc4)(void*)(*((C_word*)t7+1)))(4,t7,t6,lf[15],lf[64]);}}

/* k435 in k354 in k351 in k348 */
static void f_437(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word t16;
C_word t17;
C_word t18;
C_word t19;
C_word t20;
C_word t21;
C_word t22;
C_word t23;
C_word ab[37],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_437,2,t0,t1);}
t2=C_mutate(&lf[6],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_456,tmp=(C_word)a,a+=2,tmp));
t3=C_mutate(&lf[7],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_462,tmp=(C_word)a,a+=2,tmp));
t4=C_mutate(&lf[9],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_476,tmp=(C_word)a,a+=2,tmp));
t5=*((C_word*)lf[12]+1);
t6=C_mutate(&lf[13],(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_497,a[2]=t5,tmp=(C_word)a,a+=3,tmp));
t7=C_mutate((C_word*)lf[19]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_640,tmp=(C_word)a,a+=2,tmp));
t8=C_mutate((C_word*)lf[28]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_727,tmp=(C_word)a,a+=2,tmp));
t9=C_mutate((C_word*)lf[29]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_736,tmp=(C_word)a,a+=2,tmp));
t10=*((C_word*)lf[31]+1);
t11=*((C_word*)lf[32]+1);
t12=*((C_word*)lf[22]+1);
t13=*((C_word*)lf[12]+1);
t14=C_mutate(&lf[33],(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_758,a[2]=t12,a[3]=t10,a[4]=t11,a[5]=t13,tmp=(C_word)a,a+=6,tmp));
t15=C_mutate((C_word*)lf[43]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1015,tmp=(C_word)a,a+=2,tmp));
t16=C_mutate((C_word*)lf[45]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1050,tmp=(C_word)a,a+=2,tmp));
t17=C_mutate((C_word*)lf[16]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1075,tmp=(C_word)a,a+=2,tmp));
t18=C_mutate((C_word*)lf[53]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1226,tmp=(C_word)a,a+=2,tmp));
t19=C_mutate(&lf[54],(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1236,tmp=(C_word)a,a+=2,tmp));
t20=C_mutate((C_word*)lf[57]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1251,tmp=(C_word)a,a+=2,tmp));
t21=C_mutate((C_word*)lf[61]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1280,tmp=(C_word)a,a+=2,tmp));
t22=C_mutate((C_word*)lf[63]+1,(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_1298,tmp=(C_word)a,a+=2,tmp));
t23=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t23+1)))(2,t23,t22);}

/* tcp-abandon-port in k435 in k354 in k351 in k348 */
static void f_1298(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_1298,3,t0,t1,t2);}
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1306,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
f_1236(t3,t2);}

/* k1304 in tcp-abandon-port in k435 in k354 in k351 in k348 */
static void f_1306(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
t2=(C_word)C_slot(((C_word*)t0)[3],C_fix(1));
t3=(C_truep(t2)?C_fix(2):C_fix(1));
t4=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,(C_word)C_i_set_i_slot(t1,t3,C_SCHEME_TRUE));}

/* tcp-listener-port in k435 in k354 in k351 in k348 */
static void f_1280(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_1280,3,t0,t1,t2);}
t3=(C_word)C_slot(t2,C_fix(1));
t4=(C_word)stub92(C_SCHEME_UNDEFINED,t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1290,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=(C_word)C_eqp(C_fix(-1),t4);
if(C_truep(t6)){
t7=*((C_word*)lf[14]+1);
((C_proc7)(void*)(*((C_word*)t7+1)))(7,t7,t5,lf[15],lf[61],lf[62],t2,t3);}
else{
t7=t5;
f_1290(2,t7,C_SCHEME_UNDEFINED);}}

/* k1288 in tcp-listener-port in k435 in k354 in k351 in k348 */
static void f_1290(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,((C_word*)t0)[2]);}

/* tcp-addresses in k435 in k354 in k351 in k348 */
static void f_1251(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_1251,3,t0,t1,t2);}
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1255,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=*((C_word*)lf[53]+1);
((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t3,t2);}

/* k1253 in tcp-addresses in k435 in k354 in k351 in k348 */
static void f_1255(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word ab[10],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1255,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1262,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t3=t1;
t4=(C_word)C_a_i_bytevector(&a,1,C_fix(3));
t5=*((C_word*)lf[59]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t2,(C_word)stub87(t4,t3),C_fix(0));}

/* k1260 in k1253 in tcp-addresses in k435 in k354 in k351 in k348 */
static void f_1262(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1262,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1265,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
if(C_truep(t1)){
t3=t2;
f_1265(2,t3,t1);}
else{
t3=*((C_word*)lf[14]+1);
((C_proc6)(void*)(*((C_word*)t3+1)))(6,t3,t2,lf[15],lf[57],lf[60],((C_word*)t0)[3]);}}

/* k1263 in k1260 in k1253 in tcp-addresses in k435 in k354 in k351 in k348 */
static void f_1265(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word ab[10],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1265,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1269,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=((C_word*)t0)[2];
t4=(C_word)C_a_i_bytevector(&a,1,C_fix(3));
t5=*((C_word*)lf[59]+1);
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t2,(C_word)stub96(t4,t3),C_fix(0));}

/* k1267 in k1263 in k1260 in k1253 in tcp-addresses in k435 in k354 in k351 in k348 */
static void f_1269(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1269,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1272,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp);
if(C_truep(t1)){
t3=t2;
f_1272(2,t3,t1);}
else{
t3=*((C_word*)lf[14]+1);
((C_proc6)(void*)(*((C_word*)t3+1)))(6,t3,t2,lf[15],lf[57],lf[58],((C_word*)t0)[2]);}}

/* k1270 in k1267 in k1263 in k1260 in k1253 in tcp-addresses in k435 in k354 in k351 in k348 */
static void f_1272(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_values(4,0,((C_word*)t0)[3],((C_word*)t0)[2],t1);}

/* ##sys#tcp-port-data in k435 in k354 in k351 in k348 */
static void C_fcall f_1236(C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_1236,NULL,2,t1,t2);}
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1240,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t4=*((C_word*)lf[34]+1);
((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t3,t2);}

/* k1238 in ##sys#tcp-port-data in k435 in k354 in k351 in k348 */
static void f_1240(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_truep(t1)){
t2=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_slot(t1,C_fix(0)));}
else{
t2=*((C_word*)lf[14]+1);
((C_proc5)(void*)(*((C_word*)t2+1)))(5,t2,((C_word*)t0)[3],lf[55],lf[56],((C_word*)t0)[2]);}}

/* ##sys#tcp-port->fileno in k435 in k354 in k351 in k348 */
static void f_1226(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_1226,3,t0,t1,t2);}
t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1234,a[2]=t1,tmp=(C_word)a,a+=3,tmp);
f_1236(t3,t2);}

/* k1232 in ##sys#tcp-port->fileno in k435 in k354 in k351 in k348 */
static void f_1234(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=((C_word*)t0)[2];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_slot(t1,C_fix(0)));}

/* tcp-connect in k435 in k354 in k351 in k348 */
static void f_1075(C_word c,C_word t0,C_word t1,C_word t2,...){
C_word tmp;
C_word t3;
va_list v;
C_word *a,c2=c;
C_save_rest(t2,c2,3);
C_check_for_interrupt;
if(!C_demand(c*C_SIZEOF_PAIR+6)){
C_save_and_reclaim((void*)tr3r,(void*)f_1075r,3,t0,t1,t2);}
else{
a=C_alloc((c-3)*3);
t3=C_restore_rest(a,C_rest_count(0));
f_1075r(t0,t1,t2,t3);}}

static void f_1075r(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word *a=C_alloc(6);
t4=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1079,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp);
if(C_truep((C_word)C_i_nullp(t3))){
t6=t5;
f_1079(2,t6,C_SCHEME_FALSE);}
else{
t6=(C_word)C_slot(t3,C_fix(1));
if(C_truep((C_word)C_i_nullp(t6))){
t7=t5;
f_1079(2,t7,(C_word)C_u_i_car(t3));}
else{
t7=*((C_word*)lf[24]+1);
((C_proc4)(void*)(*((C_word*)t7+1)))(4,t7,t5,lf[0],t3);}}}

/* k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1079(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word ab[19],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1079,2,t0,t1);}
t2=t1;
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1082,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
if(C_truep(((C_word*)t3)[1])){
t5=t4;
f_1082(2,t5,C_SCHEME_UNDEFINED);}
else{
t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1188,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1196,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1202,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
C_u_call_with_values(4,0,t5,t6,t7);}}

/* a1201 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1202(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr4,(void*)f_1202,4,t0,t1,t2,t3);}
t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);
t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3);
t6=t1;
((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,t5);}

/* a1195 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1196(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1196,2,t0,t1);}
t2=lf[13];
f_497(t2,t1,((C_word*)((C_word*)t0)[2])[1],lf[52]);}

/* k1186 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1188(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_truep(((C_word*)((C_word*)t0)[4])[1])){
t2=((C_word*)t0)[3];
f_1082(2,t2,C_SCHEME_UNDEFINED);}
else{
t2=*((C_word*)lf[14]+1);
((C_proc6)(void*)(*((C_word*)t2+1)))(6,t2,((C_word*)t0)[3],lf[15],lf[16],lf[51],((C_word*)((C_word*)t0)[2])[1]);}}

/* k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1082(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1082,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1085,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t3=*((C_word*)lf[22]+1);
((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,C_fix((C_word)sizeof(struct sockaddr_in)));}

/* k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1085(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word ab[18],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1085,2,t0,t1);}
t2=f_358(C_fix((C_word)AF_INET),C_fix((C_word)SOCK_STREAM),C_fix(0));
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1090,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1103,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t1,a[6]=t2,a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp);
t5=(C_word)C_eqp(C_fix(-1),t2);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1182,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,tmp=(C_word)a,a+=5,tmp);
t7=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t7+1)))(2,t7,t6);}
else{
t6=t4;
f_1103(2,t6,C_SCHEME_UNDEFINED);}}

/* k1180 in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1182(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc7)(void*)(*((C_word*)t2+1)))(7,t2,((C_word*)t0)[4],lf[15],lf[16],lf[50],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[2])[1]);}

/* k1101 in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1103(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[10],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1103,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1106,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1173,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
f_462(t3,((C_word*)t0)[5],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[2])[1]);}

/* k1171 in k1101 in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1173(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_truep(t1)){
t2=((C_word*)t0)[3];
f_1106(2,t2,C_SCHEME_UNDEFINED);}
else{
t2=*((C_word*)lf[14]+1);
((C_proc6)(void*)(*((C_word*)t2+1)))(6,t2,((C_word*)t0)[3],lf[15],lf[16],lf[49],((C_word*)((C_word*)t0)[2])[1]);}}

/* k1104 in k1101 in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1106(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word ab[9],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1106,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1109,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=f_415(((C_word*)t0)[4]);
if(C_truep(t3)){
t4=t2;
f_1109(2,t4,C_SCHEME_UNDEFINED);}
else{
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1167,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,t4);}}

/* k1165 in k1104 in k1101 in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1167(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc5)(void*)(*((C_word*)t2+1)))(5,t2,((C_word*)t0)[2],lf[15],lf[16],lf[48]);}

/* k1107 in k1104 in k1101 in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1109(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word ab[11],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1109,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1112,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp);
t3=((C_word*)t0)[3];
t4=C_fix((C_word)sizeof(struct sockaddr_in));
t5=(C_truep(t3)?t3:C_SCHEME_FALSE);
t6=(C_word)stub75(C_SCHEME_UNDEFINED,((C_word*)t0)[4],t5,t4);
t7=(C_word)C_eqp(C_fix(-1),t6);
if(C_truep(t7)){
t8=(C_word)C_eqp(C_fix((C_word)errno),C_fix((C_word)EINPROGRESS));
if(C_truep(t8)){
t9=C_SCHEME_UNDEFINED;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1129,a[2]=((C_word*)t0)[2],a[3]=t10,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp));
t12=((C_word*)t10)[1];
f_1129(t12,t2);}
else{
t9=((C_word*)t0)[2];
f_1090(t9,t2);}}
else{
t8=t2;
f_1112(2,t8,C_SCHEME_UNDEFINED);}}

/* loop in k1107 in k1104 in k1101 in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void C_fcall f_1129(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word ab[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_1129,NULL,2,t0,t1);}
t2=(C_word)stub117(C_SCHEME_UNDEFINED,((C_word*)t0)[4]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1136,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp);
t4=(C_word)C_eqp(t2,C_fix(-1));
if(C_truep(t4)){
t5=((C_word*)t0)[2];
f_1090(t5,t3);}
else{
t5=t3;
f_1136(2,t5,C_SCHEME_UNDEFINED);}}

/* k1134 in loop in k1107 in k1104 in k1101 in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1136(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1136,2,t0,t1);}
t2=(C_word)C_eqp(((C_word*)t0)[4],C_fix(1));
if(C_truep(t2)){
t3=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,C_SCHEME_UNDEFINED);}
else{
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1145,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
f_476(t3);}}

/* k1143 in k1134 in loop in k1107 in k1104 in k1101 in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1145(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=((C_word*)((C_word*)t0)[3])[1];
f_1129(t2,((C_word*)t0)[2]);}

/* k1110 in k1107 in k1104 in k1101 in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1112(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=lf[33];
f_758(t2,((C_word*)t0)[3],((C_word*)t0)[2]);}

/* fail in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void C_fcall f_1090(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_1090,NULL,2,t0,t1);}
t2=f_388(((C_word*)t0)[4]);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1097,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t4=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,t3);}

/* k1095 in fail in k1083 in k1080 in k1077 in tcp-connect in k435 in k354 in k351 in k348 */
static void f_1097(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc7)(void*)(*((C_word*)t2+1)))(7,t2,((C_word*)t0)[4],lf[15],lf[16],lf[47],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[2])[1]);}

/* tcp-accept-ready? in k435 in k354 in k351 in k348 */
static void f_1050(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word ab[8],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_1050,3,t0,t1,t2);}
t3=(C_word)C_slot(t2,C_fix(1));
t4=f_456(t3);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1057,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t6=(C_word)C_eqp(C_fix(-1),t4);
if(C_truep(t6)){
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1066,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp);
t8=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t8+1)))(2,t8,t7);}
else{
t7=t5;
f_1057(2,t7,C_SCHEME_UNDEFINED);}}

/* k1064 in tcp-accept-ready? in k435 in k354 in k351 in k348 */
static void f_1066(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc6)(void*)(*((C_word*)t2+1)))(6,t2,((C_word*)t0)[3],lf[15],lf[45],lf[46],((C_word*)t0)[2]);}

/* k1055 in tcp-accept-ready? in k435 in k354 in k351 in k348 */
static void f_1057(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_eqp(C_fix(1),((C_word*)t0)[2]));}

/* tcp-accept in k435 in k354 in k351 in k348 */
static void f_1015(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_1015,3,t0,t1,t2);}
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1019,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(C_word)C_slot(t2,C_fix(1));
t5=*((C_word*)lf[38]+1);
((C_proc5)(void*)(*((C_word*)t5+1)))(5,t5,t3,*((C_word*)lf[10]+1),t4,C_SCHEME_TRUE);}

/* k1017 in tcp-accept in k435 in k354 in k351 in k348 */
static void f_1019(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1019,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1022,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
f_476(t2);}

/* k1020 in k1017 in tcp-accept in k435 in k354 in k351 in k348 */
static void f_1022(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word ab[8],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_1022,2,t0,t1);}
t2=(C_word)C_slot(((C_word*)t0)[3],C_fix(1));
t3=(C_word)stub29(C_SCHEME_UNDEFINED,t2,C_SCHEME_FALSE,C_SCHEME_FALSE);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1028,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t5=(C_word)C_eqp(C_fix(-1),t3);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1037,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t7=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t7+1)))(2,t7,t6);}
else{
t6=t4;
f_1028(2,t6,C_SCHEME_UNDEFINED);}}

/* k1035 in k1020 in k1017 in tcp-accept in k435 in k354 in k351 in k348 */
static void f_1037(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc6)(void*)(*((C_word*)t2+1)))(6,t2,((C_word*)t0)[3],lf[15],lf[43],lf[44],((C_word*)t0)[2]);}

/* k1026 in k1020 in k1017 in tcp-accept in k435 in k354 in k351 in k348 */
static void f_1028(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=lf[33];
f_758(t2,((C_word*)t0)[3],((C_word*)t0)[2]);}

/* ##net#io-ports in k435 in k354 in k351 in k348 */
static void C_fcall f_758(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word ab[11],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_758,NULL,3,t0,t1,t2);}
t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_762,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp);
t4=f_415(t2);
if(C_truep(t4)){
t5=t3;
f_762(2,t5,C_SCHEME_UNDEFINED);}
else{
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1010,a[2]=t3,tmp=(C_word)a,a+=3,tmp);
t6=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,t5);}}

/* k1008 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_1010(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc4)(void*)(*((C_word*)t2+1)))(4,t2,((C_word*)t0)[2],lf[15],lf[42]);}

/* k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_762(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[7],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_762,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_765,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp);
t3=((C_word*)t0)[2];
((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,C_fix(1024));}

/* k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_765(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word t13;
C_word t14;
C_word t15;
C_word ab[38],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_765,2,t0,t1);}
t2=(C_word)C_a_i_vector(&a,3,((C_word*)t0)[6],C_SCHEME_FALSE,C_SCHEME_FALSE);
t3=C_fix(0);
t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp);
t5=C_fix(0);
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_FALSE;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_SCHEME_FALSE;
t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp);
t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_771,a[2]=((C_word*)t0)[3],a[3]=t8,a[4]=t10,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[5],a[8]=t2,tmp=(C_word)a,a+=9,tmp);
t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_884,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t4,a[5]=t6,tmp=(C_word)a,a+=6,tmp);
t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_944,a[2]=((C_word*)t0)[6],a[3]=t4,a[4]=t6,tmp=(C_word)a,a+=5,tmp);
t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_971,a[2]=t10,a[3]=((C_word*)t0)[6],a[4]=t2,a[5]=t8,tmp=(C_word)a,a+=6,tmp);
t15=((C_word*)t0)[2];
((C_proc5)(void*)(*((C_word*)t15+1)))(5,t15,t11,t12,t13,t14);}

/* a970 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_971(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_971,2,t0,t1);}
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
t2=t1;
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}
else{
t2=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_TRUE);
t3=(C_truep((C_word)C_slot(((C_word*)t0)[4],C_fix(1)))?C_SCHEME_UNDEFINED:f_405(((C_word*)t0)[3],C_fix((C_word)SD_RECEIVE)));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_985,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t5=f_388(((C_word*)t0)[3]);
t6=t4;
f_985(t6,(C_word)C_eqp(C_fix(-1),t5));}
else{
t5=t4;
f_985(t5,C_SCHEME_FALSE);}}}

/* k983 in a970 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void C_fcall f_985(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_985,NULL,2,t0,t1);}
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_988,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t2);}
else{
t2=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}}

/* k986 in k983 in a970 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_988(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc5)(void*)(*((C_word*)t2+1)))(5,t2,((C_word*)t0)[3],lf[15],lf[41],((C_word*)t0)[2]);}

/* a943 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_944(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word ab[8],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_944,2,t0,t1);}
t2=(C_word)C_fixnum_lessp(((C_word*)((C_word*)t0)[4])[1],((C_word*)((C_word*)t0)[3])[1]);
if(C_truep(t2)){
t3=t1;
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t2);}
else{
t3=f_456(((C_word*)t0)[2]);
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_957,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t5=(C_word)C_eqp(t3,C_fix(-1));
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_966,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp);
t7=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t7+1)))(2,t7,t6);}
else{
t6=t4;
f_957(2,t6,C_SCHEME_UNDEFINED);}}}

/* k964 in a943 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_966(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc5)(void*)(*((C_word*)t2+1)))(5,t2,((C_word*)t0)[3],lf[15],lf[40],((C_word*)t0)[2]);}

/* k955 in a943 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_957(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_eqp(((C_word*)t0)[2],C_fix(1)));}

/* a883 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_884(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word ab[18],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_884,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_888,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
if(C_truep((C_word)C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[4])[1]))){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_907,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=C_SCHEME_UNDEFINED;
t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp);
t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_911,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp));
t7=((C_word*)t5)[1];
f_911(t7,t3);}
else{
t3=t2;
f_888(t3,C_SCHEME_UNDEFINED);}}

/* loop in a883 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void C_fcall f_911(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word ab[8],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_911,NULL,2,t0,t1);}
t2=((C_word*)t0)[4];
t3=((C_word*)t0)[3];
t4=(C_truep(t3)?t3:C_SCHEME_FALSE);
t5=(C_word)stub58(C_SCHEME_UNDEFINED,t2,t4,C_fix(1024),C_fix(0));
t6=(C_word)C_eqp(C_fix(-1),t5);
if(C_truep(t6)){
t7=(C_word)C_eqp(C_fix((C_word)errno),C_fix((C_word)EWOULDBLOCK));
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_930,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t9=*((C_word*)lf[38]+1);
((C_proc5)(void*)(*((C_word*)t9+1)))(5,t9,t8,*((C_word*)lf[10]+1),((C_word*)t0)[4],C_SCHEME_TRUE);}
else{
t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_939,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t9=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t9+1)))(2,t9,t8);}}
else{
t7=t1;
((C_proc2)(void*)(*((C_word*)t7+1)))(2,t7,t5);}}

/* k937 in loop in a883 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_939(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc5)(void*)(*((C_word*)t2+1)))(5,t2,((C_word*)t0)[3],lf[15],lf[39],((C_word*)t0)[2]);}

/* k928 in loop in a883 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_930(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_930,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
f_476(t2);}

/* k931 in k928 in loop in a883 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_933(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=((C_word*)((C_word*)t0)[3])[1];
f_911(t2,((C_word*)t0)[2]);}

/* k905 in a883 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_907(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word *a;
t2=C_mutate(((C_word *)((C_word*)t0)[4])+1,t1);
t3=C_set_block_item(((C_word*)t0)[3],0,C_fix(0));
t4=((C_word*)t0)[2];
f_888(t4,t3);}

/* k886 in a883 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void C_fcall f_888(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
if(C_truep((C_word)C_fixnum_greater_or_equal_p(((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[4])[1]))){
t2=*((C_word*)lf[37]+1);
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,((C_word*)t0)[3]);}
else{
t2=(C_word)C_subchar(((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1]);
t3=(C_word)C_u_fixnum_plus(((C_word*)((C_word*)t0)[5])[1],C_fix(1));
t4=C_mutate(((C_word *)((C_word*)t0)[5])+1,t3);
t5=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t5+1)))(2,t5,t2);}}

/* k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_771(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word ab[15],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_771,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_774,a[2]=t1,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_793,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_849,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t5=((C_word*)t0)[2];
((C_proc4)(void*)(*((C_word*)t5+1)))(4,t5,t2,t3,t4);}

/* a848 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_849(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_849,2,t0,t1);}
if(C_truep(((C_word*)((C_word*)t0)[5])[1])){
t2=t1;
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}
else{
t2=C_set_block_item(((C_word*)t0)[5],0,C_SCHEME_TRUE);
t3=(C_truep((C_word)C_slot(((C_word*)t0)[4],C_fix(2)))?C_SCHEME_UNDEFINED:f_405(((C_word*)t0)[3],C_fix((C_word)SD_SEND)));
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_863,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp);
if(C_truep(((C_word*)((C_word*)t0)[2])[1])){
t5=f_388(((C_word*)t0)[3]);
t6=t4;
f_863(t6,(C_word)C_eqp(C_fix(-1),t5));}
else{
t5=t4;
f_863(t5,C_SCHEME_FALSE);}}}

/* k861 in a848 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void C_fcall f_863(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_863,NULL,2,t0,t1);}
if(C_truep(t1)){
t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_866,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t3=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,t2);}
else{
t2=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,C_SCHEME_UNDEFINED);}}

/* k864 in k861 in a848 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_866(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc5)(void*)(*((C_word*)t2+1)))(5,t2,((C_word*)t0)[3],lf[15],lf[36],((C_word*)t0)[2]);}

/* a792 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_793(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word ab[13],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_793,3,t0,t1,t2);}
t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp);
t4=(C_word)C_block_size(((C_word*)t3)[1]);
t5=t4;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_SCHEME_UNDEFINED;
t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp);
t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_802,a[2]=((C_word*)t0)[2],a[3]=t8,a[4]=t6,a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp));
t10=((C_word*)t8)[1];
f_802(t10,t1);}

/* loop in a792 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void C_fcall f_802(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word t12;
C_word ab[15],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_802,NULL,2,t0,t1);}
t2=((C_word*)t0)[6];
t3=((C_word*)((C_word*)t0)[5])[1];
t4=((C_word*)((C_word*)t0)[4])[1];
t5=(C_truep(t3)?t3:C_SCHEME_FALSE);
t6=(C_word)stub46(C_SCHEME_UNDEFINED,t2,t5,t4,C_fix(0));
t7=(C_word)C_eqp(C_fix(-1),t6);
if(C_truep(t7)){
t8=(C_word)C_eqp(C_fix((C_word)errno),C_fix((C_word)EWOULDBLOCK));
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_821,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
f_476(t9);}
else{
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_827,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t1,tmp=(C_word)a,a+=5,tmp);
t10=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t10+1)))(2,t10,t9);}}
else{
if(C_truep((C_word)C_fixnum_lessp(t6,((C_word*)((C_word*)t0)[4])[1]))){
t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_840,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t9=((C_word*)t0)[2];
((C_proc5)(void*)(*((C_word*)t9+1)))(5,t9,t8,((C_word*)((C_word*)t0)[5])[1],t6,((C_word*)((C_word*)t0)[4])[1]);}
else{
t8=t1;
((C_proc2)(void*)(*((C_word*)t8+1)))(2,t8,C_SCHEME_UNDEFINED);}}}

/* k838 in loop in a792 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_840(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word *a;
t2=C_mutate(((C_word *)((C_word*)t0)[5])+1,t1);
t3=(C_word)C_block_size(((C_word*)((C_word*)t0)[5])[1]);
t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3);
t5=((C_word*)((C_word*)t0)[3])[1];
f_802(t5,((C_word*)t0)[2]);}

/* k825 in loop in a792 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_827(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc6)(void*)(*((C_word*)t2+1)))(6,t2,((C_word*)t0)[4],lf[15],lf[35],((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]);}

/* k819 in loop in a792 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_821(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=((C_word*)((C_word*)t0)[3])[1];
f_802(t2,((C_word*)t0)[2]);}

/* k772 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_774(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_774,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_791,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp);
t3=*((C_word*)lf[34]+1);
((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,((C_word*)t0)[2]);}

/* k789 in k772 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_791(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_791,2,t0,t1);}
t2=(C_word)C_i_setslot(t1,C_fix(0),((C_word*)t0)[5]);
t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_787,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t4=*((C_word*)lf[34]+1);
((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t3,((C_word*)t0)[2]);}

/* k785 in k789 in k772 in k769 in k763 in k760 in ##net#io-ports in k435 in k354 in k351 in k348 */
static void f_787(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word *a;
t2=(C_word)C_i_setslot(t1,C_fix(0),((C_word*)t0)[5]);
C_values(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}

/* tcp-close in k435 in k354 in k351 in k348 */
static void f_736(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_736,3,t0,t1,t2);}
t3=(C_word)C_slot(t2,C_fix(1));
t4=f_388(t3);
t5=(C_word)C_eqp(C_fix(-1),t4);
if(C_truep(t5)){
t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_749,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t7=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t7+1)))(2,t7,t6);}
else{
t6=t1;
((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,C_SCHEME_UNDEFINED);}}

/* k747 in tcp-close in k435 in k354 in k351 in k348 */
static void f_749(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc6)(void*)(*((C_word*)t2+1)))(6,t2,((C_word*)t0)[3],lf[15],lf[29],lf[30],((C_word*)t0)[2]);}

/* tcp-listener? in k435 in k354 in k351 in k348 */
static void f_727(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_727,3,t0,t1,t2);}
t3=t1;
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_truep((C_word)C_blockp(t2))?(C_word)C_i_structurep(t2,lf[26]):C_SCHEME_FALSE));}

/* tcp-listen in k435 in k354 in k351 in k348 */
static void f_640(C_word c,C_word t0,C_word t1,C_word t2,...){
C_word tmp;
C_word t3;
va_list v;
C_word *a,c2=c;
C_save_rest(t2,c2,3);
C_check_for_interrupt;
if(!C_demand(c*C_SIZEOF_PAIR+9)){
C_save_and_reclaim((void*)tr3r,(void*)f_640r,3,t0,t1,t2);}
else{
a=C_alloc((c-3)*3);
t3=C_restore_rest(a,C_rest_count(0));
f_640r(t0,t1,t2,t3);}}

static void f_640r(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word t11;
C_word *a=C_alloc(9);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_642,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_674,a[2]=t4,tmp=(C_word)a,a+=3,tmp);
t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_679,a[2]=t5,tmp=(C_word)a,a+=3,tmp);
if(C_truep((C_word)C_i_nullp(t3))){
t7=t6;
f_679(t7,t1);}
else{
t7=(C_word)C_u_i_car(t3);
t8=(C_word)C_slot(t3,C_fix(1));
if(C_truep((C_word)C_i_nullp(t8))){
t9=t5;
f_674(t9,t1,t7);}
else{
t9=(C_word)C_u_i_car(t8);
t10=(C_word)C_slot(t8,C_fix(1));
if(C_truep((C_word)C_i_nullp(t10))){
t11=t4;
f_642(t11,t1,t7,t9);}
else{
t11=*((C_word*)lf[24]+1);
((C_proc4)(void*)(*((C_word*)t11+1)))(4,t11,t1,lf[0],t10);}}}}

/* def-w178 in tcp-listen in k435 in k354 in k351 in k348 */
static void C_fcall f_679(C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_679,NULL,2,t0,t1);}
t2=((C_word*)t0)[2];
f_674(t2,t1,C_fix(10));}

/* def-host179 in tcp-listen in k435 in k354 in k351 in k348 */
static void C_fcall f_674(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_674,NULL,3,t0,t1,t2);}
t3=((C_word*)t0)[2];
f_642(t3,t1,t2,C_SCHEME_FALSE);}

/* body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void C_fcall f_642(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word ab[8],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_642,NULL,4,t0,t1,t2,t3);}
t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_648,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_654,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
C_u_call_with_values(4,0,t1,t4,t5);}

/* a653 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_654(C_word c,C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word ab[9],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr4,(void*)f_654,4,t0,t1,t2,t3);}
t4=t2;
t5=((C_word*)t0)[3];
t6=(C_word)stub22(C_SCHEME_UNDEFINED,t4,t5);
t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_661,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);
t8=(C_word)C_eqp(C_fix(-1),t6);
if(C_truep(t8)){
t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_670,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t7,tmp=(C_word)a,a+=5,tmp);
t10=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t10+1)))(2,t10,t9);}
else{
t9=t7;
f_661(2,t9,C_SCHEME_UNDEFINED);}}

/* k668 in a653 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_670(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc7)(void*)(*((C_word*)t2+1)))(7,t2,((C_word*)t0)[4],lf[15],lf[19],lf[27],((C_word*)t0)[3],((C_word*)t0)[2]);}

/* k659 in a653 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_661(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_661,2,t0,t1);}
t2=((C_word*)t0)[3];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)C_a_i_record(&a,2,lf[26],((C_word*)t0)[2]));}

/* a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_648(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word ab[9],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_648,2,t0,t1);}
t2=((C_word*)t0)[3];
t3=C_fix((C_word)SOCK_STREAM);
t4=((C_word*)t0)[2];
t5=f_358(C_fix((C_word)AF_INET),t3,C_fix(0));
t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_575,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp);
t7=(C_word)C_eqp(C_fix((C_word)INVALID_SOCKET),t5);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_635,a[2]=t6,tmp=(C_word)a,a+=3,tmp);
t9=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t9+1)))(2,t9,t8);}
else{
t8=t6;
f_575(2,t8,C_SCHEME_UNDEFINED);}}

/* k633 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_635(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[24]+1);
((C_proc3)(void*)(*((C_word*)t2+1)))(3,t2,((C_word*)t0)[2],lf[25]);}

/* k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_575(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[12],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_575,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_578,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_627,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp);
t4=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_628,tmp=(C_word)a,a+=2,tmp);
((C_proc3)(void*)(*((C_word*)t4+1)))(3,t4,t3,((C_word*)t0)[5]);}

/* f_628 in k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_628(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_628,3,t0,t1,t2);}
t3=t1;
((C_proc2)(void*)(*((C_word*)t3+1)))(2,t3,(C_word)stub161(C_SCHEME_UNDEFINED,t2));}

/* k625 in k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_627(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word ab[4],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_627,2,t0,t1);}
t2=(C_word)C_eqp(C_fix(-1),t1);
if(C_truep(t2)){
t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_620,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp);
t4=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t4+1)))(2,t4,t3);}
else{
t3=((C_word*)t0)[3];
f_578(2,t3,C_SCHEME_UNDEFINED);}}

/* k618 in k625 in k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_620(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc6)(void*)(*((C_word*)t2+1)))(6,t2,((C_word*)t0)[3],lf[15],lf[19],lf[23],((C_word*)t0)[2]);}

/* k576 in k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_578(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_578,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_581,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp);
t3=*((C_word*)lf[22]+1);
((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,C_fix((C_word)sizeof(struct sockaddr_in)));}

/* k579 in k576 in k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_581(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word ab[11],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_581,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_584,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[2])){
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_608,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp);
f_462(t3,t1,((C_word*)t0)[2],((C_word*)t0)[3]);}
else{
t3=t1;
t4=(C_truep(t3)?t3:C_SCHEME_FALSE);
t5=t2;
f_584(2,t5,(C_word)stub149(C_SCHEME_UNDEFINED,t4,((C_word*)t0)[3]));}}

/* k606 in k579 in k576 in k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_608(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
if(C_truep(t1)){
t2=((C_word*)t0)[4];
f_584(2,t2,C_SCHEME_UNDEFINED);}
else{
t2=*((C_word*)lf[14]+1);
((C_proc7)(void*)(*((C_word*)t2+1)))(7,t2,((C_word*)t0)[4],lf[15],lf[19],lf[21],((C_word*)t0)[3],((C_word*)t0)[2]);}}

/* k582 in k579 in k576 in k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_584(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word ab[10],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_584,2,t0,t1);}
t2=((C_word*)t0)[5];
t3=C_fix((C_word)sizeof(struct sockaddr_in));
t4=(C_truep(t2)?t2:C_SCHEME_FALSE);
t5=(C_word)stub13(C_SCHEME_UNDEFINED,((C_word*)t0)[4],t4,t3);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_590,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp);
t7=(C_word)C_eqp(C_fix(-1),t5);
if(C_truep(t7)){
t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_599,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t6,tmp=(C_word)a,a+=5,tmp);
t9=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t9+1)))(2,t9,t8);}
else{
t8=t6;
f_590(2,t8,C_SCHEME_UNDEFINED);}}

/* k597 in k582 in k579 in k576 in k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_599(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc7)(void*)(*((C_word*)t2+1)))(7,t2,((C_word*)t0)[4],lf[15],lf[19],lf[20],((C_word*)t0)[3],((C_word*)t0)[2]);}

/* k588 in k582 in k579 in k576 in k573 in a647 in body176 in tcp-listen in k435 in k354 in k351 in k348 */
static void f_590(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_values(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}

/* ##net#parse-host in k435 in k354 in k351 in k348 */
static void C_fcall f_497(C_word t0,C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word ab[9],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_497,NULL,4,t0,t1,t2,t3);}
t4=(C_word)C_block_size(t2);
t5=C_SCHEME_UNDEFINED;
t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp);
t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_506,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp));
t8=((C_word*)t6)[1];
f_506(t8,t1,C_fix(0));}

/* loop in ##net#parse-host in k435 in k354 in k351 in k348 */
static void C_fcall f_506(C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word t7;
C_word t8;
C_word t9;
C_word t10;
C_word *a;
loop:
a=C_alloc(7);
C_check_for_interrupt;
if(!C_stack_probe(a)){
C_save_and_reclaim((void*)trf_506,NULL,3,t0,t1,t2);}
if(C_truep((C_word)C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[6]))){
C_values(4,0,t1,((C_word*)t0)[5],C_SCHEME_FALSE);}
else{
t3=(C_word)C_subchar(((C_word*)t0)[5],t2);
t4=(C_word)C_eqp(t3,C_make_character(58));
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_529,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp);
t6=(C_word)C_u_fixnum_increase(t2);
t7=((C_word*)t0)[3];
((C_proc5)(void*)(*((C_word*)t7+1)))(5,t7,t5,((C_word*)t0)[5],t6,((C_word*)t0)[6]);}
else{
t5=(C_word)C_u_fixnum_plus(t2,C_fix(1));
t9=t1;
t10=t5;
t1=t9;
t2=t10;
goto loop;}}}

/* k527 in loop in ##net#parse-host in k435 in k354 in k351 in k348 */
static void f_529(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_529,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_533,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp);
t3=((C_word*)t0)[4];
((C_proc5)(void*)(*((C_word*)t3+1)))(5,t3,t2,((C_word*)t0)[3],C_fix(0),((C_word*)t0)[2]);}

/* k531 in k527 in loop in ##net#parse-host in k435 in k354 in k351 in k348 */
static void f_533(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_533,2,t0,t1);}
t2=t1;
t3=((C_word*)t0)[4];
t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_444,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp);
if(C_truep(t2)){
t5=*((C_word*)lf[8]+1);
((C_proc3)(void*)(*((C_word*)t5+1)))(3,t5,t4,t2);}
else{
t5=t4;
f_444(2,t5,C_SCHEME_FALSE);}}

/* k442 in k531 in k527 in loop in ##net#parse-host in k435 in k354 in k351 in k348 */
static void f_444(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[6],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_444,2,t0,t1);}
t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_448,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,tmp=(C_word)a,a+=6,tmp);
if(C_truep(((C_word*)t0)[2])){
t3=*((C_word*)lf[8]+1);
((C_proc3)(void*)(*((C_word*)t3+1)))(3,t3,t2,((C_word*)t0)[2]);}
else{
t3=t2;
f_448(2,t3,C_SCHEME_FALSE);}}

/* k446 in k442 in k531 in k527 in loop in ##net#parse-host in k435 in k354 in k351 in k348 */
static void f_448(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word ab[9],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_448,2,t0,t1);}
t2=(C_word)stub104(C_SCHEME_UNDEFINED,((C_word*)t0)[5],t1);
t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_539,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp);
t4=(C_word)C_eqp(C_fix(0),t2);
if(C_truep(t4)){
t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_545,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp);
t6=*((C_word*)lf[18]+1);
((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,t5);}
else{
t5=t3;
f_539(2,t5,C_SCHEME_UNDEFINED);}}

/* k543 in k446 in k442 in k531 in k527 in loop in ##net#parse-host in k435 in k354 in k351 in k348 */
static void f_545(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=*((C_word*)lf[14]+1);
((C_proc6)(void*)(*((C_word*)t2+1)))(6,t2,((C_word*)t0)[3],lf[15],lf[16],lf[17],((C_word*)t0)[2]);}

/* k537 in k446 in k442 in k531 in k527 in loop in ##net#parse-host in k435 in k354 in k351 in k348 */
static void f_539(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_values(4,0,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[2]);}

/* yield in k435 in k354 in k351 in k348 */
static void C_fcall f_476(C_word t1){
C_word tmp;
C_word t2;
C_word t3;
C_word ab[2],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_476,NULL,1,t1);}
t2=(*a=C_CLOSURE_TYPE|1,a[1]=(C_word)f_482,tmp=(C_word)a,a+=2,tmp);
C_call_cc(3,0,t1,t2);}

/* a481 in yield in k435 in k354 in k351 in k348 */
static void f_482(C_word c,C_word t0,C_word t1,C_word t2){
C_word tmp;
C_word t3;
C_word t4;
C_word t5;
C_word t6;
C_word ab[3],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr3,(void*)f_482,3,t0,t1,t2);}
t3=*((C_word*)lf[10]+1);
t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_491,a[2]=t2,tmp=(C_word)a,a+=3,tmp);
t5=(C_word)C_i_setslot(t3,C_fix(1),t4);
t6=*((C_word*)lf[11]+1);
((C_proc2)(void*)(*((C_word*)t6+1)))(2,t6,t1);}

/* a490 in a481 in yield in k435 in k354 in k351 in k348 */
static void f_491(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)tr2,(void*)f_491,2,t0,t1);}
t2=((C_word*)t0)[2];
((C_proc3)(void*)(*((C_word*)t2+1)))(3,t2,t1,C_SCHEME_UNDEFINED);}

/* ##net#gethostaddr in k435 in k354 in k351 in k348 */
static void C_fcall f_462(C_word t1,C_word t2,C_word t3,C_word t4){
C_word tmp;
C_word t5;
C_word t6;
C_word t7;
C_word ab[5],*a=ab;
C_check_for_interrupt;
if(!C_stack_probe(&a)){
C_save_and_reclaim((void*)trf_462,NULL,4,t1,t2,t3,t4);}
t5=(C_truep(t2)?t2:C_SCHEME_FALSE);
t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_471,a[2]=t4,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp);
if(C_truep(t3)){
t7=*((C_word*)lf[8]+1);
((C_proc3)(void*)(*((C_word*)t7+1)))(3,t7,t6,t3);}
else{
t7=t6;
f_471(2,t7,C_SCHEME_FALSE);}}

/* k469 in ##net#gethostaddr in k435 in k354 in k351 in k348 */
static void f_471(C_word c,C_word t0,C_word t1){
C_word tmp;
C_word t2;
C_word *a;
t2=((C_word*)t0)[4];
((C_proc2)(void*)(*((C_word*)t2+1)))(2,t2,(C_word)stub123(C_SCHEME_UNDEFINED,((C_word*)t0)[3],t1,((C_word*)t0)[2]));}

/* ##net#select in k435 in k354 in k351 in k348 */
static C_word C_fcall f_456(C_word t1){
C_word tmp;
C_word t2;
return((C_word)stub113(C_SCHEME_UNDEFINED,t1));}

/* ##net#make-nonblocking in k354 in k351 in k348 */
static C_word C_fcall f_415(C_word t1){
C_word tmp;
C_word t2;
return((C_word)stub83(C_SCHEME_UNDEFINED,t1));}

/* ##net#shutdown in k354 in k351 in k348 */
static C_word C_fcall f_405(C_word t1,C_word t2){
C_word tmp;
C_word t3;
return((C_word)stub68(C_SCHEME_UNDEFINED,t1,t2));}

/* ##net#close in k354 in k351 in k348 */
static C_word C_fcall f_388(C_word t1){
C_word tmp;
C_word t2;
return((C_word)stub39(C_SCHEME_UNDEFINED,t1));}

/* ##net#socket in k354 in k351 in k348 */
static C_word C_fcall f_358(C_word t1,C_word t2,C_word t3){
C_word tmp;
C_word t4;
return((C_word)stub5(C_SCHEME_UNDEFINED,t1,t2,t3));}
/* end of file */