Return to io.c CVS log | Up to [gforth] / gforth / engine |
version 1.28, 2007/07/01 19:05:00 | version 1.29, 2007/07/01 20:01:32 |
---|---|
Line 651 Cell getkey(FILE * stream) | Line 651 Cell getkey(FILE * stream) |
prep_terminal(); | prep_terminal(); |
result = fread(&c, sizeof(c), 1, stream); | result = fread(&c, sizeof(c), 1, stream); |
return result==0 ? EOF : c; | return result==0 ? (errno == EINTR ? 12 : EOF) : c; |
} | } |
#ifdef STANDALONE | #ifdef STANDALONE |