Diff for /gforth/kernel/files.fs between versions 1.3 and 1.4

version 1.3, 1998/04/12 21:49:29 version 1.4, 1998/06/17 16:55:16
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
   push-file  loadfile !      \G interpret (process using the text interpreter) the contents of
   0 loadline ! blk off  ['] read-loop catch      \G the file @var{fid}.
   loadfile @ close-file swap 2dup or      push-file  loadfile !
   pop-file  drop throw throw ;      0 loadline ! blk off  ['] read-loop catch
       loadfile @ close-file swap 2dup or
       pop-file  drop throw throw ;
   
 \ additional words only needed if there is file support  \ additional words only needed if there is file support
   

Removed from v.1.3  
changed lines
  Added in v.1.4


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