Diff for /gforth/kernel/files.fs between versions 1.5 and 1.6

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

Removed from v.1.5  
changed lines
  Added in v.1.6


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>