[gforth] / gforth / tags.fs  

gforth: gforth/tags.fs

Diff for /gforth/tags.fs between version 1.11 and 1.12

version 1.11, Thu Dec 31 15:32:35 2009 UTC version 1.12, Fri Jan 22 21:19:43 2010 UTC
Line 66 
Line 66 
   
 : tags-file-id ( -- file-id )  : tags-file-id ( -- file-id )
     tags-file @ 0= if      tags-file @ 0= if
         tags-file-name w/o create-file throw          s" sort >tags" w/o open-pipe throw
   \       tags-file-name w/o create-file throw
 \       2dup file-status  \       2dup file-status
 \       if \ the file does not exist  \       if \ the file does not exist
 \           drop w/o create-file throw  \           drop w/o create-file throw

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help