make a link to the vocab in tools.scaffold help

2008-09-07 00:13:05 -05:00 · 2008-09-07 00:13:05 -05:00 · 5222ec9b9e
parent 6458f7c67b
commit 5222ec9b9e
1 changed files with 5 additions and 1 deletions
--- 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 ;