     [
         "Parsing words" $subheading
         [
-            [ <$link> ]
+            [ <$pretty-link> ]
             [ word-syntax dup [ <$snippet> ] when ]
             bi 2array
         ] map

: describe-symbols ( words -- )
    [
        "Symbol words" $subheading
        [ <$link> 1array ] map $table
    ] unless-empty ;

: $words ( words -- )

        "Predicate classes" $subheading
        [
            [ <$pretty-link> ]
            [ superclass <$pretty-link> ]
            bi 2array
        ] map
        { { $strong "Class" } { $strong "Superclass" } } prefix
