diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-21 16:12:41 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-21 16:12:41 +0100 |
| commit | f531c3e0f5afda77ada497d3932ea10502e22bdb (patch) | |
| tree | 72194f6eef587e6f99f45f81ec168b561056233b /scheme/racket/geiser/autodoc.rkt | |
| parent | de6b4addba49abbb43f07c8e153356308bcd8709 (diff) | |
| download | geiser-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.rkt | 5 |
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))))) |