 
 M: article article-name article-title ;
 
-TUPLE: no-article name ;
-
-: no-article ( name -- * ) \ no-article boa throw ;
+ERROR: no-article name ;
 
 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 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 ;

! 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 name>> word? ;

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

! Help articles
