aboutsummaryrefslogtreecommitdiffstats
path: root/socket.c
diff options
context:
space:
mode:
Diffstat (limited to 'socket.c')
-rw-r--r--socket.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/socket.c b/socket.c
index c2d1394..fdbcfa2 100644
--- a/socket.c
+++ b/socket.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1994, 1995 Free Software Foundation, Inc.
+/* Copyright (C) 1994, 1995, 2006 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@@ -173,7 +173,7 @@ SCM l_hostinfo(name)
ve[ 3] = MAKINUM(entry->h_length + 0L);
if (sizeof(struct in_addr) != entry->h_length)
{ve[ 4] = BOOL_F; return ans;}
- for(argv = entry->h_addr_list; argv[i]; i++);
+ for (argv = entry->h_addr_list; argv[i]; i++);
while (i--) {
inad = *(struct in_addr *)argv[i];
lst = cons(ulong2num(ntohl(inad.s_addr)), lst);
@@ -535,11 +535,11 @@ int sknm_print(exp, port, writing)
lputs("inet-addr ", port);
lputs(inet_ntoa(((struct sockaddr_in *)CDR(exp))->sin_addr), port);
lputc(':', port);
- intprint(0L + ntohs(((struct sockaddr_in *)CDR(exp))->sin_port), 10, port);
+ scm_intprint(0L + ntohs(((struct sockaddr_in *)CDR(exp))->sin_port), 10, port);
break;
default: lputs(s_unkfam, port);
lputc(' ', port);
- intprint(0L+((struct sockaddr *)CDR(exp))->sa_family, 10, port);
+ scm_intprint(0L+((struct sockaddr *)CDR(exp))->sa_family, 10, port);
}
lputc('>', port);
return !0;