scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed name clash on solaris.

This commit is contained in:
mainzelm 2000-12-21 17:01:05 +00:00
parent 701d506b3e
commit 3a8546df55
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scsh/network1.c
View File

@ -213,14 +213,14 @@ s48_value scheme_accept(s48_value sockfd_tagged, s48_value family)
} }
} }
s48_value make_addr (long s_addr, int s_port) s48_value make_addr (long net_s_addr, int net_s_port)
{ {
s48_value result, sock_addr; s48_value result, sock_addr;
S48_DECLARE_GC_PROTECT(2); S48_DECLARE_GC_PROTECT(2);
S48_GC_PROTECT_2 (result, sock_addr); S48_GC_PROTECT_2 (result, sock_addr);
sock_addr = long2byte_vector (ntohl (s_addr)); sock_addr = long2byte_vector (ntohl (net_s_addr));
result = s48_cons (sock_addr, s48_enter_fixnum (ntohs (s_port))); result = s48_cons (sock_addr, s48_enter_fixnum (ntohs (net_s_port)));
S48_GC_UNPROTECT(); S48_GC_UNPROTECT();
return result; return result;
} }