[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

Diff for /gforth/wf.fs between version 1.57 and 1.58

version 1.57, Mon Oct 6 19:31:36 2008 UTC version 1.58, Wed Oct 8 09:33:13 2008 UTC
Line 272 
Line 272 
   
 : get-icon ( addr u -- )  iconpath @ IF  2drop  EXIT  THEN  : get-icon ( addr u -- )  iconpath @ IF  2drop  EXIT  THEN
     link-suffix $! s" .*" link-suffix $+!      link-suffix $! s" .*" link-suffix $+!
     icon-prefix $@ open-dir throw >r      icon-prefix $@ open-dir IF  drop  EXIT  THEN >r
     BEGIN      BEGIN
         pad $100 r@ read-dir throw  WHILE          pad $100 r@ read-dir throw  WHILE
         pad swap 2dup link-suffix $@ filename-match          pad swap 2dup link-suffix $@ filename-match

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help