[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

Diff for /gforth/wf.fs between version 1.25 and 1.26

version 1.25, Thu Jun 24 20:50:40 2004 UTC version 1.26, Sun Jul 18 13:31:06 2004 UTC
Line 232 
Line 232 
   
 : link-warn? ( -- ) \ local links only  : link-warn? ( -- ) \ local links only
     link $@ ': scan nip ?EXIT      link $@ ': scan nip ?EXIT
     link $@ r/o open-file nip IF      link $@ '# $split 2drop r/o open-file nip IF
         s" Dead Link '" stderr write-file throw          s" Dead Link '" stderr write-file throw
         link $@ stderr write-file throw          link $@ stderr write-file throw
         s\" ' !!!\n" stderr write-file throw          s\" ' !!!\n" stderr write-file throw

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help