summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser/autodoc.rkt
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-21 16:12:41 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-21 16:12:41 +0100
commitf531c3e0f5afda77ada497d3932ea10502e22bdb (patch)
tree72194f6eef587e6f99f45f81ec168b561056233b /scheme/racket/geiser/autodoc.rkt
parentde6b4addba49abbb43f07c8e153356308bcd8709 (diff)
downloadgeiser-guile-f531c3e0f5afda77ada497d3932ea10502e22bdb.tar.gz
geiser-guile-f531c3e0f5afda77ada497d3932ea10502e22bdb.tar.bz2
Racket: showing submodules in module help
Diffstat (limited to 'scheme/racket/geiser/autodoc.rkt')
-rw-r--r--scheme/racket/geiser/autodoc.rkt5
1 files changed, 3 insertions, 2 deletions
diff --git a/scheme/racket/geiser/autodoc.rkt b/scheme/racket/geiser/autodoc.rkt
index e9c6a07..54cac24 100644
--- a/scheme/racket/geiser/autodoc.rkt
+++ b/scheme/racket/geiser/autodoc.rkt
@@ -229,5 +229,6 @@
(module-compiled-exports
(get-module-code (resolve-module-path mod #f)))])
(let ([syn (map contracted (extract-ids syn))]
- [reg (extract-ids reg)])
- `((syntax ,@syn) ,@(classify-ids reg)))))
+ [reg (extract-ids reg)]
+ [subm (map list (or (submodules mod) '()))])
+ `((syntax ,@syn) ,@(classify-ids reg) (modules ,@subm)))))