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

View File

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