Changeset 13096
- Timestamp:
- Oct 23, 2009, 6:07:44 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/working-0711/ccl/lisp-kernel/lisp-debug.c
r13070 r13096 160 160 readc() 161 161 { 162 unsigned tries = 1000; 162 163 int c; 163 while (1) { 164 165 while (tries) { 164 166 c = getchar(); 165 167 switch(c) { … … 171 173 if (ferror(stdin)) { 172 174 if ((errno == EINTR) || (errno == EIO)) { 175 clearerr(stdin); 176 tries--; 173 177 continue; 174 178 } … … 179 183 } 180 184 } 185 return EOF; 181 186 } 182 187
Note: See TracChangeset
for help on using the changeset viewer.