summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-11 20:00:02 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-06-11 20:00:02 +0200
commit78a281ecfed5dd848929813d4aa1c7c0de209fbb (patch)
treeceb5bb3ffc456552cfe7d0bebb8b6b44da15d6e0
parenta182ebe9a51ecb902103d038b4b217ded959a025 (diff)
downloadgeiser-chez-78a281ecfed5dd848929813d4aa1c7c0de209fbb.tar.gz
geiser-chez-78a281ecfed5dd848929813d4aa1c7c0de209fbb.tar.bz2
Guile: tweaks to the previous fix.
-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)))))