/[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.7 by camm, Thu Nov 6 16:08:06 2003 UTC revision 1.8 by camm, Thu Nov 6 20:47:15 2003 UTC
# Line 42  available on FD, 0 if timeout reached an Line 42  available on FD, 0 if timeout reached an
42    else    else
43      return make_fixnum1(0);      return make_fixnum1(0);
44  }  }
45    #ifdef STATIC_FUNCTION_POINTERS
46    object
47    fScheck_fd_for_input(fixnum fd,fixnum timeout) {
48      return FFN(fScheck_fd_for_input)(fd,timeout);
49    }
50    #endif
51    
52    
53    
# Line 267  DEFUN_NEW("CLEAR-CONNECTION",object,fScl Line 273  DEFUN_NEW("CLEAR-CONNECTION",object,fScl
273    
274   return make_fixnum1(n);   return make_fixnum1(n);
275  }  }
276    #ifdef STATIC_FUNCTION_POINTERS
277    object
278    fSclear_connection(fixnum fd) {
279      return FFN(fSclear_connection)(fd);
280    }
281    #endif
282    
283    
284    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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