version 1.27, 2003/03/09 15:16:47
|
version 1.28, 2003/03/22 10:04:06
|
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, |