--- gforth/ds2texi.fs 2003/03/09 15:16:47 1.27 +++ gforth/ds2texi.fs 2003/03/22 10:04:06 1.28 @@ -94,14 +94,14 @@ create description-buffer 4096 chars all : make-doc ( -- ) get-current documentation set-current create - last @ name>string skip-prefix 2, \ name + latest name>string skip-prefix 2, \ name [char] ) parse save-mem 2, \ stack-effect bl sword condition-wordset 2, \ wordset bl sword dup \ pronounciation if condition-pronounciation else - 2drop last @ name>string skip-prefix + 2drop latest name>string skip-prefix endif 2, get-description save-mem 2,