From 6570c082a9726ae4844c6edae5acba562d7f984e Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 22 Jun 2016 10:08:57 -0700 Subject: [PATCH] tools: more about/etc fixes --- tools/help/help-docs.factor | 8 ++++---- tools/help/syntax/syntax.factor | 2 +- tools/help/vocabs/vocabs-docs.factor | 2 +- tools/tools/scaffold/scaffold.factor | 8 ++++---- 4 files changed, 10 insertions(+), 10 deletions(-) diff --git a/tools/help/help-docs.factor b/tools/help/help-docs.factor index 5cf9743886..36566f413f 100644 --- a/tools/help/help-docs.factor +++ b/tools/help/help-docs.factor @@ -95,7 +95,7 @@ $nl postpone\ HELP: } "A parsing word defines the main help article for a vocabulary:" -{ $subsections postpone\ about: } +{ $subsections \ ABOUT: } "The " { $emphasis "content" } " in both cases is a " { $emphasis "markup element" } ", a recursive structure taking one of the following forms:" { $list { "a string," } @@ -512,11 +512,11 @@ HELP: \ ARTICLE: } } ; -HELP: \ about: -{ $syntax "about: article" } +HELP: \ ABOUT: +{ $syntax "ABOUT: article" } { $values { "article" "a help article" } } { $description "Defines the main documentation article for the current vocabulary." } ; HELP: vocab-help { $values { "vocab-spec" "a vocabulary specifier" } { "help" "a help article" } } -{ $description "Outputs the main help article for a vocabulary. The main help article can be set with " { $link postpone\ about: } "." } ; +{ $description "Outputs the main help article for a vocabulary. The main help article can be set with " { $link \ ABOUT: } "." } ; diff --git a/tools/help/syntax/syntax.factor b/tools/help/syntax/syntax.factor index 56a7d018a3..e0e85a26dd 100644 --- a/tools/help/syntax/syntax.factor +++ b/tools/help/syntax/syntax.factor @@ -20,5 +20,5 @@ SYNTAX: \ ARTICLE: over add-article >link ] dip remember-definition ; -SYNTAX: \ about: +SYNTAX: \ ABOUT: current-vocab scan-object >>help changed-definition ; diff --git a/tools/help/vocabs/vocabs-docs.factor b/tools/help/vocabs/vocabs-docs.factor index 7cff40dfcf..811eaa6af7 100644 --- a/tools/help/vocabs/vocabs-docs.factor +++ b/tools/help/vocabs/vocabs-docs.factor @@ -21,7 +21,7 @@ HELP: words. HELP: about { $values { "vocab" "a vocabulary specifier" } } { $description - "Displays the main help article for the vocabulary. The main help article is set with the " { $link postpone\ about: } " parsing word." + "Displays the main help article for the vocabulary. The main help article is set with the " { $link \ ABOUT: } " parsing word." } ; ARTICLE: "browsing-help" "Browsing documentation" diff --git a/tools/tools/scaffold/scaffold.factor b/tools/tools/scaffold/scaffold.factor index 299cdeb312..106515df22 100644 --- a/tools/tools/scaffold/scaffold.factor +++ b/tools/tools/scaffold/scaffold.factor @@ -81,7 +81,7 @@ PRIVATE< [ scaffold-copyright "USING: ;" print - "in: " write print + "IN: " write print ] with-string-writer ; : set-scaffold-main-file ( vocab path -- ) @@ -217,14 +217,14 @@ M: object add-using ( object -- ) : docs-file-string ( vocab -- str2 ) [ { - [ "in: " write print nl ] + [ "IN: " write print nl ] [ interesting-words. ] [ [ "ARTICLE: " write unparse dup write bl print ] [ "{ $vocab-link " write pprint " }" print ] bi ";" print nl ] - [ "about: " write unparse print ] + [ "ABOUT: " write unparse print ] } cleave ] with-string-writer ; @@ -302,7 +302,7 @@ PRIVATE< [ scaffold-copyright "USING: tools.test " write dup write " ;" print - "in: " write write ".tests" print + "IN: " write write ".tests" print ] with-string-writer ; : set-scaffold-tests-file ( vocab path -- )