--- gforth/prim 2001/12/01 20:33:14 1.84 +++ gforth/prim 2001/12/09 19:12:45 1.85 @@ -1608,7 +1608,7 @@ if (wior) clearerr((FILE *)wfileid); 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; flag=-1; for(u2=0; u2