| : 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, |
