[gforth] / gforth / stuff.fs  

gforth: gforth/stuff.fs

Diff for /gforth/stuff.fs between version 1.61 and 1.62

version 1.61, Sun Sep 6 22:43:23 2009 UTC version 1.62, Mon Oct 5 15:54:28 2009 UTC
Line 393 
Line 393 
   
 : th ( addr1 u -- addr2 )  : th ( addr1 u -- addr2 )
     cells + ;      cells + ;
   
   \ \\\ - skip to end of file
   
   : \\\ ( -- ) \ gforth
       \G skip remaining source file
       source-id dup 0> IF
           >r r@ file-size throw r> reposition-file throw
           BEGIN  refill 0= UNTIL  postpone \  THEN ; immediate

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help