Diff for /gforth/locate.fs between versions 1.1 and 1.2

version 1.1, 2001/10/07 21:51:09 version 1.2, 2002/09/14 08:20:19
Line 36  Variable sys-buf Line 36  Variable sys-buf
 : locate ( "name" -- )  s" " last-file $!  bl sword  : locate ( "name" -- )  s" " last-file $!  bl sword
     s" TAGS" r/o open-file throw >r      s" TAGS" r/o open-file throw >r
     BEGIN  r@ tag-line  WHILE      BEGIN  r@ tag-line  WHILE
         s" " line-buf $@ compare 0=          s" " line-buf $@ str=
         IF    r@ get-file          IF    r@ get-file
         ELSE  2dup check-word          ELSE  2dup check-word
             IF  print-location 2drop  r> close-file throw  EXIT  THEN              IF  print-location 2drop  r> close-file throw  EXIT  THEN

Removed from v.1.1  
changed lines
  Added in v.1.2


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