diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-11 18:18:10 +0200 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-06-11 18:18:10 +0200 |
commit | a182ebe9a51ecb902103d038b4b217ded959a025 (patch) | |
tree | a4f833862aa5e36f5a583127b7d50d9b017d31d8 /scheme/guile/geiser | |
parent | 9ff0ba8e1fb1b990c6f5e17f7ccb69101d96d4a6 (diff) | |
download | geiser-chez-a182ebe9a51ecb902103d038b4b217ded959a025.tar.gz geiser-chez-a182ebe9a51ecb902103d038b4b217ded959a025.tar.bz2 |
Guile: showing again submodules in module documentation.
Diffstat (limited to 'scheme/guile/geiser')
-rw-r--r-- | scheme/guile/geiser/modules.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/scheme/guile/geiser/modules.scm b/scheme/guile/geiser/modules.scm index f7ea927..a57145e 100644 --- a/scheme/guile/geiser/modules.scm +++ b/scheme/guile/geiser/modules.scm @@ -57,7 +57,7 @@ (define (module-path module-name) (and (module-name? module-name) (or ((@@ (ice-9 session) module-filename) module-name) - (module-filename (resolve-module module-name))))) + (module-filename (resolve-module module-name #f))))) (define (submodules mod) (hash-map->list (lambda (k v) v) (module-submodules mod))) @@ -82,19 +82,19 @@ cs))) (define (module-exports mod-name) - (let* ((elts (hash-fold classify-module-object + (let* ((mod (catch #t + (lambda () (resolve-interface mod-name)) + (lambda args (resolve-module mod-name)))) + (elts (hash-fold classify-module-object (list '() '() '()) - (module-obarray (maybe-module-interface mod-name)))) + (module-obarray mod))) (elts (map sort-symbols! elts))) - (list (cons 'modules (map (lambda (m) `(,@mod-name ,m)) (car elts))) + (list (cons 'modules (append + (map module-name (submodules mod)) + (map (lambda (m) `(,@mod-name ,m)) (car elts)))) (cons 'procs (cadr elts)) (cons 'vars (caddr elts))))) -(define (maybe-module-interface mod-name) - (catch #t - (lambda () (resolve-interface mod-name)) - (lambda args (resolve-module mod-name)))) - (define (classify-module-object name var elts) (let ((obj (and (variable-bound? var) (variable-ref var)))) |