[gforth] / gforth / stuff.fs  

gforth: gforth/stuff.fs

Diff for /gforth/stuff.fs between version 1.53 and 1.54

version 1.53, Sun Dec 31 13:39:14 2006 UTC version 1.54, Sun Feb 18 18:30:51 2007 UTC
Line 362 
Line 362 
     ]] outfile-id >r try to-outfile-id [[ ; immediate compile-only      ]] outfile-id >r try to-outfile-id [[ ; immediate compile-only
   
 : outfile< ( r:old-file-id -- )  : outfile< ( r:old-file-id -- )
     0 ]] literal recover endtry r> to-outfile-id throw [[      0 ]] literal restore r@ to-outfile-id endtry rdrop throw [[
 ; immediate compile-only  ; immediate compile-only
   
 : to-infile-id ( file-id -- )  : to-infile-id ( file-id -- )
Line 372 
Line 372 
     ]] infile-id >r try to-infile-id [[ ; immediate compile-only      ]] infile-id >r try to-infile-id [[ ; immediate compile-only
   
 : infile< ( r:old-file-id -- )  : infile< ( r:old-file-id -- )
     0 ]] literal recover endtry r> to-infile-id throw [[      0 ]] literal restore r@ to-infile-id endtry rdrop throw [[
 ; immediate compile-only  ; immediate compile-only

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help