Diff for /gforth/ds2texi.fs between versions 1.27 and 1.29

version 1.27, 2003/03/09 15:16:47 version 1.29, 2005/10/02 11:30:32
Line 94  create description-buffer 4096 chars all Line 94  create description-buffer 4096 chars all
 : make-doc ( -- )  : make-doc ( -- )
     get-current documentation set-current      get-current documentation set-current
     create      create
         last @ name>string skip-prefix 2,               \ name          latest name>string skip-prefix 2,               \ name
         [char] ) parse save-mem 2,      \ stack-effect          [char] ) parse save-mem 2,      \ stack-effect
         bl sword condition-wordset 2,   \ wordset          bl sword condition-wordset 2,   \ wordset
         bl sword dup    \ pronounciation          bl sword dup    \ pronounciation
         if          if
             condition-pronounciation              condition-pronounciation
         else          else
             2drop last @ name>string skip-prefix              2drop latest name>string skip-prefix
         endif          endif
         2,          2,
         get-description save-mem 2,          get-description save-mem 2,
Line 167  create description-buffer 4096 chars all Line 167  create description-buffer 4096 chars all
     >r dup >r      >r dup >r
     3 pick over str=      3 pick over str=
     if \ addr2 u2 is a prefix of addr1 u1      if \ addr2 u2 is a prefix of addr1 u1
         r> /string documentation search-wordlist          r> /string -trailing documentation search-wordlist
         if \ the rest of addr1 u1 is in documentation          if \ the rest of addr1 u1 is in documentation
             execute r> execute true              execute r> execute true
         else          else

Removed from v.1.27  
changed lines
  Added in v.1.29


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