 M: vocab-spec >link ;
 M: object >link link boa ;
 
-PREDICATE: word-link < link link-name word? ;
+PREDICATE: word-link < link name>> word? ;
 
 M: link summary
     [
         "Link: " %
-        link-name dup word? [ summary ] [ unparse ] if %
+        name>> dup word? [ summary ] [ unparse ] if %
     ] "" make ;
 
 ! Help articles


M: article article-name article-title ;

TUPLE: no-article name ;

: no-article ( name -- * ) \ no-article boa throw ;

M: no-article summary
    drop "Help article does not exist" ;

M: object article-parent article-xref get at ;
M: object set-article-parent article-xref get set-at ;

M: link article-name name>> article-name ;
M: link article-title name>> article-title ;
M: link article-content name>> article-content ;
M: link article-parent name>> article-parent ;
M: link set-article-parent name>> set-article-parent ;

! Special case: f help
M: f article-name drop \ f article-name ;
