|
version 1.5, 1998/12/08 22:03:10
|
version 1.6, 1999/02/03 00:10:24
|
|
Line 70
|
Line 70
|
| BEGIN refill WHILE interpret REPEAT ; |
BEGIN refill WHILE interpret REPEAT ; |
| |
|
| : include-file ( i*x fid -- j*x ) \ file |
: include-file ( i*x fid -- j*x ) \ file |
| \G interpret (process using the text interpreter) the contents of |
\G Interpret (process using the text interpreter) the contents of |
| \G the file @var{fid}. |
\G the file @var{fid}. |
| push-file loadfile ! |
push-file loadfile ! |
| 0 loadline ! blk off ['] read-loop catch |
0 loadline ! blk off ['] read-loop catch |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to files.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel