Return to prim CVS log | Up to [gforth] / gforth |
version 1.175, 2005/08/21 22:09:14 | version 1.176, 2005/09/03 07:49:02 |
---|---|
Line 1645 n = key((FILE*)wfileid); | Line 1645 n = key((FILE*)wfileid); |
n = key(stdin); | n = key(stdin); |
#endif | #endif |
key?-file ( wfileid -- n ) facility key_q_file | key?-file ( wfileid -- n ) gforth key_q_file |
#ifdef HAS_FILE | #ifdef HAS_FILE |
fflush(stdout); | fflush(stdout); |
n = key_query((FILE*)wfileid); | n = key_query((FILE*)wfileid); |