[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

Diff for /gforth/wf.fs between version 1.32 and 1.33

version 1.32, Sun Jan 16 13:29:21 2005 UTC version 1.33, Sat Jan 22 16:39:58 2005 UTC
Line 289 
Line 289 
   
 : link-warn? ( -- ) \ local links only  : link-warn? ( -- ) \ local links only
     link $@ ': scan nip ?EXIT      link $@ ': scan nip ?EXIT
     link $@ '# $split 2drop r/o open-file nip IF      link $@ '# $split 2drop dup IF
           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
     THEN ;          THEN
       ELSE  2drop  THEN ;
   
 : link-options ( addr u -- addr' u' )  : link-options ( addr u -- addr' u' )
     do-size off  do-icon on  do-expand off      do-size off  do-icon on  do-expand off

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help