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 |