 M: object article-parent article-xref get at ;
 M: object set-article-parent article-xref get set-at ;
 
-M: link article-name link-name article-name ;
-M: link article-title link-name article-title ;
-M: link article-content link-name article-content ;
-M: link article-parent link-name article-parent ;
-M: link set-article-parent link-name set-article-parent ;
+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 ;

M: vocab-spec >link ;
M: object >link link boa ;

PREDICATE: word-link < link link-name word? ;

M: link summary
    [
        "Link: " %
        link-name dup word? [ summary ] [ unparse ] if %
    ] "" make ;

! Help articles


M: article article-name article-title ;

ERROR: no-article name ;

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