Fixes

diff --git a/core/kernel/kernel-docs.factor b/core/kernel/kernel-docs.factor
index 84ee4fe5cf88cabb43a22e706f5259dc7ab9ff86..de3c0ead3ef4723e054187f61cd9f41fd1d7b583 100644 (file)
--- a/core/kernel/kernel-docs.factor
+++ b/core/kernel/kernel-docs.factor
@@ -32,7 +32,7 @@ $nl
 { $subsection >r }
 { $subsection r> }
 "The top of the data stack is ``hidden'' between " { $link >r } " and " { $link r> } ":"
-{ $example "1 2 3 >r .s r>" "2\n1" }
+{ $example "1 2 3 >r .s r>" "1\n2" }
 "Words must not leave objects on the retain stack, nor expect values to be there on entry. The retain stack is for local storage within a word only, and occurrences of " { $link >r } " and " { $link r> } " must be balanced inside a single quotation. One exception is the following trick involving " { $link if } "; values may be pushed on the retain stack before the condition value is computed, as long as both branches of the " { $link if } " pop the values off the retain stack before returning:"
 { $code
     ": foo ( m ? n -- m+n/n )"

diff --git a/extra/tools/browser/browser-docs.factor b/extra/tools/browser/browser-docs.factor
index 61ad58f5b3594929eae9df946e123f1654b90fe9..db0e5942f5bfaacac59dd89cc2ed75630fdbb469 100644 (file)
--- a/extra/tools/browser/browser-docs.factor
+++ b/extra/tools/browser/browser-docs.factor
@@ -1,6 +1,10 @@
 USING: help.markup help.syntax io strings ;
 IN: tools.browser
 
+ARTICLE: "vocab-index" "Vocabulary index"
+{ $tags,authors }
+{ $describe-vocab "" } ;
+
 ARTICLE: "tools.browser" "Vocabulary browser"
 "Getting and setting vocabulary meta-data:"
 { $subsection vocab-summary }

diff --git a/extra/tools/browser/browser.factor b/extra/tools/browser/browser.factor
index 5342022b540e7db497d2bd73e93fd82e50482e8e..97d3c968cb104782a9b1f2472c4fec321e981fce 100644 (file)
--- a/extra/tools/browser/browser.factor
+++ b/extra/tools/browser/browser.factor
@@ -303,10 +303,6 @@ C: <vocab-author> vocab-author
     "Authors" $heading
     all-authors authors. ;
 
-ARTICLE: "vocab-index" "Vocabulary index"
-{ $tags,authors }
-{ $describe-vocab "" } ;
-
 M: vocab-spec article-title vocab-name " vocabulary" append ;
 
 M: vocab-spec article-name vocab-name ;