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

version 1.32, 2005/01/16 13:29:21 version 1.33, 2005/01/22 16:39:58
Line 289  Defer parse-line Line 289  Defer parse-line
   
 : 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
         s" Dead Link '" stderr write-file throw          r/o open-file nip IF
         link $@ stderr write-file throw              s" Dead Link '" stderr write-file throw
         s\" ' !!!\n" stderr write-file throw              link $@ stderr write-file throw
     THEN ;              s\" ' !!!\n" stderr write-file throw
           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

Removed from v.1.32  
changed lines
  Added in v.1.33


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>