/* -*-C-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxio.c,v 1.15 1992/01/20 17:02:58 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxio.c,v 1.16 1992/01/20 18:05:34 jinx Exp $
Copyright (c) 1990-1992 Massachusetts Institute of Technology
DEFUN (UX_select_input, (fd, blockp), int fd AND int blockp)
{
#ifdef HAVE_SELECT
+ extern int EXFUN (select,
+ (int, SELECT_TYPE *, SELECT_TYPE *, SELECT_TYPE *,
+ struct timeval));
extern int EXFUN (UX_process_any_status_change, (void));
int status_change_p;
int nfds;
(nfds,
((status_change_p = (UX_process_any_status_change ()))
? ((errno = EINTR), (-1))
- : (select (FD_SETSIZE, (&readable), 0, 0,
- (blockp ? 0 : (&zero_timeout))))));
+ : (UX_select (FD_SETSIZE, (&readable), 0, 0,
+ (blockp ? 0 : (&zero_timeout))))));
if (nfds > 0)
return
((FD_ISSET (fd, (&readable)))