/[gcl]/gcl/gcl-tk/comm.c
ViewVC logotype

Diff of /gcl/gcl-tk/comm.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Sat Feb 15 00:38:27 2003 UTC revision 1.4 by camm, Wed Feb 26 22:21:36 2003 UTC
# Line 36  available on FD, 0 if timeout reached an Line 36  available on FD, 0 if timeout reached an
36    FD_SET(fd, &inp);    FD_SET(fd, &inp);
37    n = select(fd + 1, &inp, NULL, NULL, &t);    n = select(fd + 1, &inp, NULL, NULL, &t);
38    if (n < 0)    if (n < 0)
39      return make_fixnum(-1);      return make_fixnum1(-1);
40    else if (FD_ISSET(fd, &inp))    else if (FD_ISSET(fd, &inp))
41      return make_fixnum(1);      return make_fixnum1(1);
42    else    else
43      return make_fixnum(0);      return make_fixnum1(0);
44  }  }
45    
46    
# Line 265  DEFUN_NEW("CLEAR-CONNECTION",object,fScl Line 265  DEFUN_NEW("CLEAR-CONNECTION",object,fScl
265     { n+=read(fd,buffer,sizeof(buffer));     { n+=read(fd,buffer,sizeof(buffer));
266     }     }
267    
268   return make_fixnum(n);   return make_fixnum1(n);
269  }  }
270    
271    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26