From 3699917f709823a4ae0d7bc93dac1af11668a669 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Sat, 7 Jul 2001 19:32:51 +0000
Subject: [PATCH] + Added missing "unsigned" to make_addr. + Removed 0.5's cast
 to long for port number.

---
 scsh/network1.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scsh/network1.c b/scsh/network1.c
index ceb0526..a424d75 100644
--- a/scsh/network1.c
+++ b/scsh/network1.c
@@ -193,7 +193,7 @@ s48_value scheme_accept(s48_value sockfd_tagged, s48_value family)
     }
 }
 
-s48_value make_addr (long net_s_addr, int net_s_port)
+s48_value make_addr (unsigned long net_s_addr, int net_s_port)
 {
   s48_value result, sock_addr;
   S48_DECLARE_GC_PROTECT(2);
@@ -282,7 +282,7 @@ recv_substring(s48_value scm_sockfd, s48_value flags, s48_value buf,
   if (cc >= 0)
     return (s48_cons (s48_enter_fixnum (cc), 
 		      s48_cons (make_addr (name.sin_addr.s_addr,
-					   htonl((u_long)ntohs(name.sin_port))),
+					   name.sin_port),
 				S48_NULL)));