add describe to easily add descriptions in the source

FossilOrigin-Name: 8f8b7ba14d61c2ff21998f9045d53b47019114f9769a5016048a8a51c1764c42
2024-11-16 19:48:56 +01:00 · 2024-09-12 18:58:36 +00:00 · 2024-09-12 18:58:36 +00:00 · 79990effa3
commit 79990effa3
parent c0cd63c34f
3 changed files with 2606 additions and 2594 deletions
--- a/1
+++ b/1
@ -46,6 +46,7 @@
  - stack comments & descriptions are now part of the standard
    system image
  - add `d:words-missing-details`
+  - add `describe`

 - library

--- a/interface/descriptions.retro
+++ b/interface/descriptions.retro
@ -1,6 +1,11 @@
 ~~~
 :d:set-description (:ss-)
  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
 ~~~

 ~~~
--- a/vm/nga-c/image.c
+++ b/vm/nga-c/image.c