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

Fixed return value of accept for AF_UNIX.

This commit is contained in:
mainzelm 2002-04-28 18:26:44 +00:00
parent d2ce1ffa08
commit 6a80f8df7c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/network1.c
View File

@ -173,8 +173,9 @@ s48_value scheme_accept(s48_value sockfd_tagged, s48_value family)
s48_raise_out_of_memory_error();
return S48_FALSE;
}
return(s48_enter_fixnum (newsockfd));
fcntl(newsockfd, F_SETFL, O_NONBLOCK);
return(s48_cons (s48_enter_fixnum (newsockfd),
s48_enter_string (name.sun_path)));
break;
}
case AF_INET: