--- gforth/kernel/files.fs 2000/09/06 20:30:07 1.10 +++ gforth/kernel/files.fs 2000/09/09 20:32:58 1.11 @@ -34,6 +34,9 @@ THEN newline r> write-file ; +: read-line ( c_addr u1 wfileid -- u2 flag wior ) + (read-line) drop ; + \ include-file 07apr93py : push-file ( -- ) r>