scaffold-help deosnt need the vocab-root

db4
Doug Coleman 2008-10-01 17:52:54 -05:00
parent 177de0bf0b
commit d5d94a6bcd
2 changed files with 3 additions and 4 deletions

View File

@ -13,8 +13,7 @@ HELP: help.
{ $description "Prints out scaffold help markup for a given word." } ;
HELP: scaffold-help
{ $values
{ "vocab-root" "a vocabulary root string" } { "string" string } }
{ $values { "string" string } }
{ $description "Takes an existing vocabulary and creates a help file with scaffolded help for each word. This word only works if no help file yet exists." } ;
HELP: scaffold-undocumented

View File

@ -217,9 +217,9 @@ PRIVATE>
: help. ( word -- )
[ (help.) ] [ nl vocabulary>> link-vocab ] bi ;
: scaffold-help ( vocab-root string -- )
: scaffold-help ( string -- )
[
check-vocab
[ find-vocab-root ] [ check-vocab ] bi
prepare-scaffold
[ "-docs.factor" scaffold-path ] dip
swap [ set-scaffold-help-file ] [ 2drop ] if