         [ <$link> 1array ] map $table
     ] unless-empty ;
 
-: words. ( vocab -- )
+: describe-words ( vocab -- )
     words [
         "Words" $heading
 


: $vocabs ( assoc -- )
    [
        [
            drop
        ] [
            swap root-heading.
            standard-table-style [
                vocab-headings. [ vocab. ] each
            ] ($grid)
        ] if-empty
    ] assoc-each ;



: vocab. ( vocab -- )
    [
        [ [ write-status ] with-cell ]
        [ [ ($link) ] with-cell ]
        [ [ vocab-summary write ] with-cell ] tri
    ] with-row ;

: vocab-headings. ( -- )
