Diff for /gforth/ds2texi.fs between versions 1.20 and 1.21

version 1.20, 1998/12/08 22:02:39 version 1.21, 1998/12/13 23:29:58
Line 63  create description-buffer 4096 chars all Line 63  create description-buffer 4096 chars all
 : skip-prefix ( c-addr1 u1 -- c-addr2 u2 )  : skip-prefix ( c-addr1 u1 -- c-addr2 u2 )
     2dup 2 min s" --" compare 0=      2dup 2 min s" --" compare 0=
     IF      IF
         [char] - skip [char] - scan [char] - skip          [char] - skip [char] - scan 1 /string
     THEN ;      THEN ;
   
 : replace-_ ( c-addr u -- )  : replace-_ ( c-addr u -- )

Removed from v.1.20  
changed lines
  Added in v.1.21


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