[gforth] / gforth / kernel / files.fs  

gforth: gforth/kernel/files.fs

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

version 1.5, Tue Dec 8 22:03:10 1998 UTC version 1.6, Wed Feb 3 00:10:24 1999 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 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

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help