[gforth] / gforth / kernel / files.fs  

gforth: gforth/kernel/files.fs

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

version 1.3, Sun Apr 12 21:49:29 1998 UTC version 1.4, Wed Jun 17 16:55:16 1998 UTC
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 the file @var{fid}.
   push-file  loadfile !    push-file  loadfile !
   0 loadline ! blk off  ['] read-loop catch    0 loadline ! blk off  ['] read-loop catch
   loadfile @ close-file swap 2dup or    loadfile @ close-file swap 2dup or

Generate output suitable for use with a patch program
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help