From 53eb92a9677937f45a0d03f534999d0a593b4422 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 15 Feb 2009 02:15:27 -0600
Subject: [PATCH] tools.vocabs.browser: use icons in more places

---
 basis/tools/vocabs/browser/browser.factor | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/tools/vocabs/browser/browser.factor b/basis/tools/vocabs/browser/browser.factor
index cb2525dd7b..3550424b83 100644
--- a/basis/tools/vocabs/browser/browser.factor
+++ b/basis/tools/vocabs/browser/browser.factor
@@ -83,7 +83,7 @@ C: <vocab-author> vocab-author
         "Tuple classes" $subheading
         [
             [ <$pretty-link> ]
-            [ superclass <$link> ]
+            [ superclass <$pretty-link> ]
             [ "slots" word-prop [ name>> ] map " " join <$snippet> ]
             tri 3array
         ] map
@@ -96,7 +96,7 @@ C: <vocab-author> vocab-author
         "Predicate classes" $subheading
         [
             [ <$pretty-link> ]
-            [ superclass <$link> ]
+            [ superclass <$pretty-link> ]
             bi 2array
         ] map
         { { $strong "Class" } { $strong "Superclass" } } prefix
@@ -150,7 +150,7 @@ C: <vocab-author> vocab-author
     [
         "Parsing words" $subheading
         [
-            [ <$link> ]
+            [ <$pretty-link> ]
             [ word-syntax dup [ <$snippet> ] when ]
             bi 2array
         ] map
@@ -190,7 +190,7 @@ C: <vocab-author> vocab-author
 : describe-symbols ( words -- )
     [
         "Symbol words" $subheading
-        [ <$link> 1array ] map $table
+        [ <$pretty-link> 1array ] map $table
     ] unless-empty ;
 
 : $words ( words -- )