add scaffold-undocumented

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index c7781629c0caea38a44df69551c41ad2f2a72285..571266d0ef75f10fa0a87613f75e592a32750801 100644 (file)
--- a/basis/tools/scaffold/scaffold.factor
+++ b/basis/tools/scaffold/scaffold.factor
@@ -178,12 +178,22 @@ ERROR: vocab-name-contains-dot path ;
 : prepare-scaffold ( vocab-root string -- string path )
     check-scaffold [ vocab>scaffold-path ] keep ;
 
+: with-scaffold ( quot -- )
+    [ H{ } clone using ] dip with-variable ; inline
+
 : scaffold-help ( vocab-root string -- )
-    H{ } clone using [
+    [
         prepare-scaffold
         [ "-docs.factor" scaffold-path ] dip
         swap [ set-scaffold-help-file ] [ 2drop ] if
-    ] with-variable ;
+    ] with-scaffold ;
+
+: scaffold-undocumented ( string -- )
+    [
+        words
+        [ "help" word-prop not ] filter
+        natural-sort [ help. nl ] each
+    ] with-scaffold ;
 
 : scaffold-vocab ( vocab-root string -- )
     prepare-scaffold