X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/7b2d5454344e5748485a3c94201dbfd983bf65d4..15237f3002a749715747e30c9c7952da5edbe7c5:/libguile/inet_aton.c

diff --git a/libguile/inet_aton.c b/libguile/inet_aton.c
index 88c5d8a73..af203abde 100644
--- a/libguile/inet_aton.c
+++ b/libguile/inet_aton.c
@@ -31,6 +31,9 @@
  * SUCH DAMAGE.
  */
 
+/* Software engineering face-lift by Greg J. Badros, 11-Dec-1999,
+   gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
+
 #if defined(LIBC_SCCS) && !defined(lint)
 static char sccsid[] = "@(#)inet_addr.c	8.1 (Berkeley) 6/17/93";
 #endif /* LIBC_SCCS and not lint */
@@ -48,8 +51,7 @@ static char sccsid[] = "@(#)inet_addr.c	8.1 (Berkeley) 6/17/93";
  * The value returned is in network order.
  */
 u_long
-inet_addr(cp)
-	register const char *cp;
+inet_addr(const char *cp)
 {
 	struct in_addr val;
 
@@ -72,9 +74,7 @@ int inet_aton (const char *cp, struct in_addr *addr);
  * This replaces inet_addr, the return value from which
  * cannot distinguish between failure and a local broadcast address.  */
 int
-inet_aton(cp_arg, addr)
-	const char *cp_arg;
-	struct in_addr *addr;
+inet_aton(const char *cp_arg, struct in_addr *addr)
 {
 	register unsigned long val;
 	register int base, n;
@@ -160,3 +160,9 @@ inet_aton(cp_arg, addr)
 		addr->s_addr = htonl(val);
 	return (1);
 }
+
+/*
+  Local Variables:
+  c-file-style: "gnu"
+  End:
+*/