diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-11 20:00:02 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-11 20:00:02 +0200 |
| commit | 78a281ecfed5dd848929813d4aa1c7c0de209fbb (patch) | |
| tree | ceb5bb3ffc456552cfe7d0bebb8b6b44da15d6e0 | |
| parent | a182ebe9a51ecb902103d038b4b217ded959a025 (diff) | |
| download | geiser-guile-78a281ecfed5dd848929813d4aa1c7c0de209fbb.tar.gz geiser-guile-78a281ecfed5dd848929813d4aa1c7c0de209fbb.tar.bz2 | |
Guile: tweaks to the previous fix.
| -rw-r--r-- | scheme/guile/geiser/modules.scm | 9 |
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))))) |