diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor index e35bee4333..d4f664d6ff 100644 --- 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 3884da652a..fd5c5cf234 100644 --- 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 ;