summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/modules.rkt
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-26 02:29:25 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-26 02:29:25 +0100
commitf661d7c70bd04542d8bbb4da9c9f70b6d6c95791 (patch)
tree66c3a04e2b98fe9f16f605bf6a7722d6b72b2120 /scheme/racket/geiser/modules.rkt
parent59e53577aff12df02f437b95f46dc2951157eb10 (diff)
downloadgeiser-guile-f661d7c70bd04542d8bbb4da9c9f70b6d6c95791.tar.gz
geiser-guile-f661d7c70bd04542d8bbb4da9c9f70b6d6c95791.tar.bz2
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.
Diffstat (limited to 'scheme/racket/geiser/modules.rkt')
-rw-r--r--scheme/racket/geiser/modules.rkt7
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))