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

version 1.56, 2008/08/24 12:28:11 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
Line 380  Create do-words  $100 0 [DO] ' .text , [ Line 380  Create do-words  $100 0 [DO] ' .text , [
 : >tag '\ parse type '\ parse tag ;  : >tag '\ parse type '\ parse tag ;
   
 char>tag * b  char>tag * b
   char>tag / i
 char>tag _ em  char>tag _ em
 char>tag # code  char>tag # code
 :noname  '~ parse .type '~ parse .type ; '~ cells do-words + !  :noname  '~ parse .type '~ parse .type ; '~ cells do-words + !

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


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