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

version 1.4, 1998/06/17 16:55:16 version 1.6, 1999/02/03 00:10:24
Line 1 Line 1
 \ File specifiers                                       11jun93jaw  \ File specifiers                                       11jun93jaw
   
 \ Copyright (C) 1995-1997 Free Software Foundation, Inc.  \ Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
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.4  
changed lines
  Added in v.1.6


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