summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
Diffstat (limited to 'scheme')
-rw-r--r--scheme/guile/geiser/modules.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/scheme/guile/geiser/modules.scm b/scheme/guile/geiser/modules.scm
index a57145e..15b9737 100644
--- a/scheme/guile/geiser/modules.scm
+++ b/scheme/guile/geiser/modules.scm
@@ -88,10 +88,11 @@
(elts (hash-fold classify-module-object
(list '() '() '())
(module-obarray mod)))
- (elts (map sort-symbols! elts)))
- (list (cons 'modules (append
- (map module-name (submodules mod))
- (map (lambda (m) `(,@mod-name ,m)) (car elts))))
+ (elts (map sort-symbols! elts))
+ (subs (map module-name (submodules (resolve-module mod-name #f)))))
+ (list (cons 'modules (append subs
+ (map (lambda (m)
+ `(,@mod-name ,m)) (car elts))))
(cons 'procs (cadr elts))
(cons 'vars (caddr elts)))))