From 5222ec9b9e5157939b0a21cd88a0fe69358ceae7 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 7 Sep 2008 00:13:05 -0500
Subject: [PATCH] make a link to the vocab in tools.scaffold help

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

diff --git a/basis/tools/scaffold/scaffold.factor b/basis/tools/scaffold/scaffold.factor
index 8bc9f93bd2..c4cca565c7 100644
--- a/basis/tools/scaffold/scaffold.factor
+++ b/basis/tools/scaffold/scaffold.factor
@@ -175,7 +175,11 @@ ERROR: no-vocab vocab ;
         {
             [ "IN: " write print nl ]
             [ interesting-words. ]
-            [ "ARTICLE: " write unparse dup write bl print ";" print nl ]
+            [
+                [ "ARTICLE: " write unparse dup write bl print ]
+                [ "{ $vocab-link " write pprint " }" print ] bi
+                ";" print nl
+            ]
             [ "ABOUT: " write unparse print ]
         } cleave
     ] with-string-writer ;