--- gforth/ds2texi.fs 1995/03/13 09:17:25 1.4 +++ gforth/ds2texi.fs 1995/09/15 14:52:49 1.6 @@ -77,6 +77,7 @@ create description-buffer 4096 chars all ." @i{" r@ doc-stack-effect 2@ type ." } " r@ doc-wordset 2@ type ." ``" r@ doc-pronounciation 2@ type ." ''" cr ." @end format" cr + ." @findex " r@ doc-name 2@ typetexi cr rdrop ; : print-doc ( doc-entry -- ) @@ -134,6 +135,7 @@ create docline doclinelength chars allot script? [IF] include prims2x.fs s" primitives.b" ' register-doc process-file -require doc.fs +require doc.fd +require crossdoc.fd s" gforth.ds" r/o open-file throw ds2texi bye [THEN]