add describe to easily add descriptions in the source

FossilOrigin-Name: 8f8b7ba14d61c2ff21998f9045d53b47019114f9769a5016048a8a51c1764c42

RELEASE-NOTES

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

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
 ~~~
 
 ~~~

interface/sources.retro

@@ -6,7 +6,7 @@ each of the provided words are found in.
 ## Standard Library
 
 ~~~
-:d:set-source (ss-) &s:dedup dip d:lookup d:source store ;
+:d:set-source (:ss-) &s:dedup dip d:lookup d:source store ;
 'interface/sources.retro 'd:set-source d:set-source
 ~~~
 

interface/stack-comments.retro

@@ -13,7 +13,7 @@ comment format this introduces to add them inline.
 }}
 
 :d:describe (:s-)
-  d:lookup nl
+  d:lookup 0; nl
   dup 'Name:_____ s:put d:name   s:put nl
   dup 'Address:__ s:put d:xt     fetch n:put nl
   dup 'Class:____ s:put d:class  fetch dup n:put d:lookup-xt dup n:-zero? [ sp d:name s:put ] &drop choose nl

package/dict-words-listing.forth

@@ -36,3 +36,11 @@ deal with this, `d:words-beginning-with` is provided.
     here s:copy [ d:name display-if-left ] d:for-each ;
 }}
 ~~~
+
+~~~
+:d:words-missing-details (:-)
+  'D.Stack: s:put nl [ dup d:stack fetch n:zero? [ d:name s:put sp ] &drop choose ] d:for-each nl
+  'A.Stack: s:put nl [ dup d:astack fetch n:zero? [ d:name s:put sp ] &drop choose ] d:for-each nl
+  'F.Stack: s:put nl [ dup d:fstack fetch n:zero? [ d:name s:put sp ] &drop choose ] d:for-each nl
+  'Desc:    s:put nl [ dup d:descr fetch n:zero? [ d:name s:put sp ] &drop choose ] d:for-each nl ;
+~~~