diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-26 02:29:25 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-26 02:29:25 +0100 |
| commit | f661d7c70bd04542d8bbb4da9c9f70b6d6c95791 (patch) | |
| tree | 66c3a04e2b98fe9f16f605bf6a7722d6b72b2120 /scheme/racket/geiser/modules.rkt | |
| parent | 59e53577aff12df02f437b95f46dc2951157eb10 (diff) | |
| download | geiser-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.rkt | 7 |
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)) |