Show term for "from" when module/lang/reader

greghendershott · Nov 19, 2024 · 4cf572e · 4cf572e
1 parent 46728bb
commit 4cf572e
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/racket/scribble.rkt b/racket/scribble.rkt
@@ -226,7 +226,8 @@
        (values what from fams pkg sort-order)]
       [(index-desc? desc)
        (define ht (index-desc-extras desc))
-       (define what (match (hash-ref ht 'module-kind #f)
+       (define module-kind (hash-ref ht 'module-kind #f))
+       (define what (match module-kind
                       ['lib    "module"]
                       ['lang   "language"]
                       ['reader "reader"]
@@ -236,12 +237,15 @@
          (match (hash-ref ht 'display-from-libs #f)
            [(? list? contents)
             (string-join (map content->string contents) ", ")]
-           [#f (doc-from)]))
+           [#f
+            (match module-kind
+              [(or 'lib 'lang 'reader) term]
+              [_ (doc-from)])]))
        (define fams (match (hash-ref ht 'language-family #f)
                       [(? list? fams) (string-join (map ~a fams) ", ")]
                       [#f "Racket"]))
        (define pkg (lib-pkg
-                    (match (hash-ref ht 'module-kind #f)
+                    (match module-kind
                       ['lib (string->symbol term)]
                       [_    #f])))
        (define sort-order (hash-ref ht 'sort-order 0))