--- gforth/ds2texi.fs 1997/02/01 14:59:28 1.12 +++ gforth/ds2texi.fs 1997/04/10 15:00:04 1.14 @@ -26,12 +26,13 @@ \ `documentation'. Each word resides there under its own name. script? [IF] -warnings off -require search-order.fs -require glocals.fs -require float.fs -require struct.fs -require debugging.fs + warnings off + require extend.fs + require search-order.fs + require glocals.fs + require float.fs + require struct.fs + require debugging.fs [THEN] wordlist constant documentation @@ -138,8 +139,9 @@ create description-buffer 4096 chars all r@ print-short r@ doc-description 2@ dup 0<> if - ." @iftex" cr ." @vskip-3ex" cr ." @end iftex" cr - type cr cr \ ." @ifinfo" cr ." @*" cr ." @end ifinfo" cr cr + \ ." @iftex" cr ." @vskip-0ex" cr ." @end iftex" cr + type cr cr + \ ." @ifinfo" cr ." @*" cr ." @end ifinfo" cr cr else 2drop cr endif