add describe to easily add descriptions in the source

FossilOrigin-Name: 8f8b7ba14d61c2ff21998f9045d53b47019114f9769a5016048a8a51c1764c42
This commit is contained in:
crc 2024-09-12 18:58:36 +00:00
parent c0cd63c34f
commit 79990effa3
3 changed files with 2606 additions and 2594 deletions

View file

@ -46,6 +46,7 @@
- stack comments & descriptions are now part of the standard - stack comments & descriptions are now part of the standard
system image system image
- add `d:words-missing-details` - add `d:words-missing-details`
- add `describe`
- library - library

View file

@ -1,6 +1,11 @@
~~~ ~~~
:d:set-description (:ss-) :d:set-description (:ss-)
d:lookup dup n:-zero? [ d:descr &s:keep dip store ] &drop-pair choose ; d:lookup dup n:-zero? [ d:descr &s:keep dip store ] &drop-pair choose ;
'add_a_description_to_a_word 'd:set-description d:set-description
:describe (:s-)
s:keep d:last d:descr store ;
'add_a_description_for_the_most_recently_defined_word describe
~~~ ~~~
~~~ ~~~

File diff suppressed because it is too large Load diff