Diff for /gforth/fixpath.fs between versions 1.5 and 1.6

version 1.5, 2003/08/24 22:58:54 version 1.6, 2003/08/30 19:55:13
Line 32  Variable path$  2 arg path$ $! Line 32  Variable path$  2 arg path$ $!
 Variable pathes$  2 arg pathes$ $!  Variable pathes$  2 arg pathes$ $!
 Variable exe$  Variable exe$
   
 pathes$ 1 1 $del  \ pathes$ 1 1 $del s" /cygdrive/" pathes$ 0 $ins
 s" /cygdrive/" pathes$ 0 $ins  \ : fixpathes ( addr u -- )
 : fixpathes ( addr u -- )  \   bounds ?DO  I c@ '\ = IF  '/ I c!  THEN  LOOP ;
   bounds ?DO  I c@ '\ = IF  '/ I c!  THEN  LOOP ;  \ pathes$ $@ fixpathes
 pathes$ $@ fixpathes  
 s" .;" pathes$ 0 $ins  s" .;" pathes$ 0 $ins
   
 : fix-exe ( offset addr u -- )  : fix-exe ( offset addr u -- )

Removed from v.1.5  
changed lines
  Added in v.1.6


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