Racket: more information in symbol documentation

When the symbol is imported and re-exported by a second module, we
display its definition name and original module, besides the name of
the module re-exporting it.

1 files changed, 7 insertions, 0 deletions

diff --git a/scheme/racket/geiser/modules.rkt b/scheme/racket/geiser/modules.rkt
index eac3a6c..9e6e14c 100644
--- a/scheme/racket/geiser/modules.rkt
+++ b/scheme/racket/geiser/modules.rkt
@@ -18,6 +18,7 @@
          namespace->module-path-name
          module-path-name->name
          module-spec->path-name
+         module-path-index->name
          module-identifiers
          module-list
          submodules)
@@ -84,6 +85,12 @@
         [(symbol? path) (symbol->string path)]
         [else ""]))
 
+(define (module-path-index->name mpi)
+  (let ([rmp (module-path-index-resolve mpi)])
+    (if (resolved-module-path? rmp)
+        (module-path-name->name (resolved-module-path-name rmp))
+        "<unknown module>")))
+
 (define namespace->module-name
   (compose module-path-name->name namespace->module-path-name))