From 62235b3f7bcd8c44566410cb9c33b88c81725034 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 4 Sep 2008 01:34:01 -0500
Subject: [PATCH] make sure a vocab exists before trying to document it

---
 basis/tools/scaffold/scaffold.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index 7f55d0a217..dc7e21bc39 100644
--- a/basis/tools/scaffold/scaffold.factor
+++ b/basis/tools/scaffold/scaffold.factor
@@ -13,6 +13,7 @@ SYMBOL: using
 ERROR: not-a-vocab-root string ;
 ERROR: vocab-name-contains-separator path ;
 ERROR: vocab-name-contains-dot path ;
+ERROR: no-vocab vocab ;
 
 : root? ( string -- ? )
     vocab-roots get member?  ;
@@ -183,10 +184,15 @@ PRIVATE>
 
 : with-scaffold ( quot -- )
     [ H{ } clone using ] dip with-variable ; inline
+
+: check-vocab ( vocab -- vocab )
+    dup find-vocab-root [ no-vocab ] unless ;
 PRIVATE>
 
+
 : scaffold-help ( vocab-root string -- )
     [
+        check-vocab
         prepare-scaffold
         [ "-docs.factor" scaffold-path ] dip
         swap [ set-scaffold-help-file ] [ 2drop ] if