[gforth] / gforth / kernel / files.fs  

gforth: gforth/kernel/files.fs

Diff for /gforth/kernel/files.fs between version 1.22 and 1.23

version 1.22, Sun Mar 9 15:17:05 2003 UTC version 1.23, Sun Feb 5 17:54:39 2006 UTC
Line 58 
Line 58 
   
 : pop-file   ( throw-code -- throw-code )  : pop-file   ( throw-code -- throw-code )
   dup IF    dup IF
          source >in @ sourceline# sourcefilename >error        input-error-data >error
   THEN    THEN
   r>    r>
   r> >in         !    r> >in         !

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help