diff options
Diffstat (limited to 'socket.c')
| -rw-r--r-- | socket.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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; |