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

version 1.57, 2008/10/06 19:31:36 version 1.58, 2008/10/08 09:33:13
Line 272  Defer parse-line Line 272  Defer parse-line
   
 : 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

Removed from v.1.57  
changed lines
  Added in v.1.58


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