From 56dec43eb3bc7bcf3dc9f0006a8ffdfd82e299f1 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 4 Sep 2008 00:43:18 -0500
Subject: [PATCH] add scaffold-undocumented

---
 basis/tools/scaffold/scaffold.factor | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index c7781629c0..571266d0ef 100644
--- 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