diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-04-10 07:57:05 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-04-10 07:57:05 +0000 |
commit | e4b265d817c6758441bbfc66730cae98eabde9b5 (patch) | |
tree | 401f2628ddf4bcab2a6c72023daba0c8b0aa03eb /libguile/net_db.c | |
parent | 40f83c3e1b5cb1d440f785d857981417c5fa6f85 (diff) | |
download | guile-e4b265d817c6758441bbfc66730cae98eabde9b5.tar.gz |
* Avoid redundant casting of argument numbers to char* and vice versa.
Diffstat (limited to 'libguile/net_db.c')
-rw-r--r-- | libguile/net_db.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/net_db.c b/libguile/net_db.c index 2ef227f48..183a01f76 100644 --- a/libguile/net_db.c +++ b/libguile/net_db.c @@ -1,5 +1,5 @@ /* "net_db.c" network database support - * Copyright (C) 1995, 96, 97, 98, 99, 2000, 2001 Free Software Foundation, Inc. + * Copyright (C) 1995,1996,1997,1998,1999,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 @@ -119,7 +119,7 @@ SCM_DEFINE (scm_inet_ntoa, "inet-ntoa", 1, 0, 0, struct in_addr addr; char *s; SCM answer; - addr.s_addr = htonl (SCM_NUM2ULONG (1,inetid)); + addr.s_addr = htonl (SCM_NUM2ULONG (1, inetid)); s = inet_ntoa (addr); answer = scm_makfromstr (s, strlen (s), 0); return answer; @@ -137,7 +137,7 @@ SCM_DEFINE (scm_inet_netof, "inet-netof", 1, 0, 0, #define FUNC_NAME s_scm_inet_netof { struct in_addr addr; - addr.s_addr = htonl (SCM_NUM2ULONG (1,address)); + addr.s_addr = htonl (SCM_NUM2ULONG (1, address)); return scm_ulong2num ((unsigned long) inet_netof (addr)); } #undef FUNC_NAME @@ -154,7 +154,7 @@ SCM_DEFINE (scm_lnaof, "inet-lnaof", 1, 0, 0, #define FUNC_NAME s_scm_lnaof { struct in_addr addr; - addr.s_addr = htonl (SCM_NUM2ULONG (1,address)); + addr.s_addr = htonl (SCM_NUM2ULONG (1, address)); return scm_ulong2num ((unsigned long) inet_lnaof (addr)); } #undef FUNC_NAME @@ -288,7 +288,7 @@ SCM_DEFINE (scm_gethost, "gethost", 0, 1, 0, } else { - inad.s_addr = htonl (SCM_NUM2ULONG (1,host)); + inad.s_addr = htonl (SCM_NUM2ULONG (1, host)); entry = gethostbyaddr ((char *) &inad, sizeof (inad), AF_INET); } if (!entry) @@ -412,7 +412,7 @@ SCM_DEFINE (scm_getproto, "getproto", 0, 1, 0, else { unsigned long protonum; - protonum = SCM_NUM2ULONG (1,protocol); + protonum = SCM_NUM2ULONG (1, protocol); entry = getprotobynumber (protonum); } if (!entry) |