Return to files.fs CVS log | Up to [gforth] / gforth / kernel |
version 1.11, 2000/09/09 20:32:58 | version 1.12, 2000/09/10 19:50:33 |
---|---|
Line 34 | Line 34 |
THEN | THEN |
newline r> write-file ; | newline r> write-file ; |
: read-line ( c_addr u1 wfileid -- u2 flag wior ) | |
(read-line) drop ; | |
\ include-file 07apr93py | \ include-file 07apr93py |
: push-file ( -- ) r> | : push-file ( -- ) r> |