RELEASE-NOTES

@@ -45,8 +45,6 @@
   - 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,11 +1,6 @@
 ~~~
 :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 0; nl
+  d:lookup 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,11 +36,3 @@ 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 ;
-~~~