Fix word links in vocab browser

diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index e35bee4333263452840496d718397e8fd1cc3669..d4f664d6ff9f181717d5f7072358e5380055c29f 100644 (file)
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -151,11 +151,11 @@ ALIAS: $slot $snippet
 : $link ( element -- )
     first ($link) ;
 
-: ($word-link) ( word -- )
-    [ name>> ] keep write-link ;
+: ($definition-link) ( word -- )
+    [ article-name ] keep write-link ;
 
-: $word-link ( element -- )
-    first ($word-link) ;
+: $definition-link ( element -- )
+    first ($definition-link) ;
 
 : ($long-link) ( object -- )
     [ article-title ] [ >link ] bi write-link ;

diff --git a/basis/tools/vocabs/browser/browser.factor b/basis/tools/vocabs/browser/browser.factor
index 3884da652a6fd175053858dee047b1372e30272b..fd5c5cf234a43ca8da39c1ee65ee2df8e83266bc 100644 (file)
--- a/basis/tools/vocabs/browser/browser.factor
+++ b/basis/tools/vocabs/browser/browser.factor
@@ -14,7 +14,7 @@ IN: tools.vocabs.browser
     [
         [ definition-icon 1array \ $image prefix ]
         [ drop " " ]
-        [ 1array \ $link prefix ] ! XXX
+        [ 1array \ $definition-link prefix ]
         tri
     ] output>array ;