From 503e2395bc245a1e3ec23f12563e91be6b28d041 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 11 Jun 2010 20:00:02 +0200 Subject: Guile: tweaks to the previous fix. --- geiser/modules.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'geiser/modules.scm') 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))))) -- cgit v1.2.3