Return to prim CVS log | Up to [gforth] / gforth |
version 1.84, 2001/12/01 20:33:14 | version 1.85, 2001/12/09 19:12:45 |
---|---|
Line 1608 if (wior) | Line 1608 if (wior) |
clearerr((FILE *)wfileid); | clearerr((FILE *)wfileid); |
read-line ( c_addr u1 wfileid -- u2 flag wior ) file read_line | read-line ( c_addr u1 wfileid -- u2 flag wior ) file read_line |
""this is only for backward compatibility"" | /* this may one day be replaced with : read-line (read-line) nip ; */ |
Cell c; | Cell c; |
flag=-1; | flag=-1; |
for(u2=0; u2<u1; u2++) | for(u2=0; u2<u1; u2++) |