Return to io.c CVS log | Up to [gforth] / gforth / engine |
version 1.29, 2007/07/01 20:01:32 | version 1.30, 2007/07/14 19:57:16 |
---|---|
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 ? (errno == EINTR ? 12 : EOF) : c; | return result==0 ? (errno == EINTR ? 12 : 4) : c; |
} | } |
#ifdef STANDALONE | #ifdef STANDALONE |