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 | 503e2395bc245a1e3ec23f12563e91be6b28d041 (patch) | |
| tree | 7ccc35dd4df864f011c6dd99aa0a8a94e9605629 /geiser | |
| parent | aaa22fbbc9736f6010b534b2d00b5f1f2b14f46a (diff) | |
| download | geiser-guile-503e2395bc245a1e3ec23f12563e91be6b28d041.tar.gz geiser-guile-503e2395bc245a1e3ec23f12563e91be6b28d041.tar.bz2 | |
Guile: tweaks to the previous fix.
Diffstat (limited to 'geiser')
| -rw-r--r-- | geiser/modules.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/geiser/modules.scm b/geiser/modules.scm index a57145e..15b9737 100644 --- a/geiser/modules.scm +++ b/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))))) |