scaffold-help deosnt need the vocab-root

diff --git a/basis/tools/scaffold/scaffold-docs.factor b/basis/tools/scaffold/scaffold-docs.factor
index e22e10f8c9ea5f7771f6f0fda67b843039090c8e..479b636fcf28da021f5ca424f1f97a4d8c2eec71 100644 (file)
--- a/basis/tools/scaffold/scaffold-docs.factor
+++ b/basis/tools/scaffold/scaffold-docs.factor
@@ -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

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index d8d35ebf31837cb7a64e939d5f30152e1ae02f78..17eafa91c6d1c6ae91511a1c698f525461c040dd 100644 (file)
--- a/basis/tools/scaffold/scaffold.factor
+++ b/basis/tools/scaffold/scaffold.factor
@@ -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