summaryrefslogtreecommitdiff
path: root/libguile/socket.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-04-10 07:57:05 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-04-10 07:57:05 +0000
commite4b265d817c6758441bbfc66730cae98eabde9b5 (patch)
tree401f2628ddf4bcab2a6c72023daba0c8b0aa03eb /libguile/socket.c
parent40f83c3e1b5cb1d440f785d857981417c5fa6f85 (diff)
downloadguile-e4b265d817c6758441bbfc66730cae98eabde9b5.tar.gz
* Avoid redundant casting of argument numbers to char* and vice versa.
Diffstat (limited to 'libguile/socket.c')
-rw-r--r--libguile/socket.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/socket.c b/libguile/socket.c
index f6b404bd3..199e2497a 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1996,1997,1998, 2000, 2001 Free Software Foundation, Inc.
+/* Copyright (C) 1996,1997,1998,2000,2001 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
@@ -123,7 +123,7 @@ SCM_DEFINE (scm_htonl, "htonl", 1, 0, 0,
"unsigned long integer.")
#define FUNC_NAME s_scm_htonl
{
- unsigned long c_in = SCM_NUM2ULONG (1,in);
+ unsigned long c_in = SCM_NUM2ULONG (1, in);
return scm_ulong2num (htonl (c_in));
}
#undef FUNC_NAME
@@ -135,7 +135,7 @@ SCM_DEFINE (scm_ntohl, "ntohl", 1, 0, 0,
"a C unsigned long integer.")
#define FUNC_NAME s_scm_ntohl
{
- unsigned long c_in = SCM_NUM2ULONG (1,in);
+ unsigned long c_in = SCM_NUM2ULONG (1, in);
return scm_ulong2num (ntohl (c_in));
}
#undef FUNC_NAME
@@ -426,7 +426,7 @@ scm_fill_sockaddr (int fam, SCM address, SCM *args, int which_arg,
memset (soka, 0, sizeof (struct sockaddr_in));
soka->sin_family = AF_INET;
soka->sin_addr.s_addr =
- htonl (scm_num2ulong (address, (char *) which_arg, proc));
+ htonl (scm_num2ulong (address, which_arg, proc));
*args = SCM_CDR (*args);
soka->sin_port = htons (SCM_INUM (isport));
*size = sizeof (struct sockaddr_in);
@@ -874,7 +874,7 @@ SCM_DEFINE (scm_sendto, "sendto", 4, 0, 1,
else
{
SCM_VALIDATE_CONS (5,args_and_flags);
- flg = SCM_NUM2ULONG (5,SCM_CAR (args_and_flags));
+ flg = SCM_NUM2ULONG (5, SCM_CAR (args_and_flags));
}
SCM_SYSCALL (rv = sendto (fd, SCM_STRING_CHARS (message),
SCM_STRING_LENGTH (message),