add d:words-missing-details

FossilOrigin-Name: ee2b08e111e4ae15d3a0738022e1fdfa9b84067cd7019f273cc0337275d91e05

RELEASE-NOTES

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

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