Return to prim CVS log | Up to [gforth] / gforth |
version 1.35, 1999/05/20 13:38:02 | version 1.38, 1999/08/20 17:22:51 |
---|---|
Line 1682 wior = FILEIO(putc(c, (FILE *)wfileid)== | Line 1682 wior = FILEIO(putc(c, (FILE *)wfileid)== |
if (wior) | if (wior) |
clearerr((FILE *)wfileid); | clearerr((FILE *)wfileid); |
#else | #else |
putc(c, stdout); | PUTC(c); |
#endif | #endif |
\+file | \+file |