diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-04 21:30:57 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-04 21:30:57 +0200 |
| commit | 09f49941e2fff04f9bda4eaf1261d3fb1161907b (patch) | |
| tree | ad9d91adb5277fe25742673337cedfafa329258f | |
| parent | 19ed2c06ab66a4ef22e7695c06d09579b5dfa54a (diff) | |
| download | geiser-guile-09f49941e2fff04f9bda4eaf1261d3fb1161907b.tar.gz geiser-guile-09f49941e2fff04f9bda4eaf1261d3fb1161907b.tar.bz2 | |
Guile: better filtering of "anonymous" module names
Temporary modules with fancy gensym names have kind #f.
| -rw-r--r-- | geiser/modules.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/geiser/modules.scm b/geiser/modules.scm index f558579..a1697a7 100644 --- a/geiser/modules.scm +++ b/geiser/modules.scm @@ -64,9 +64,7 @@ (define (all-modules) (define (maybe-name m) - (let ((name (module-name m))) - (and (not (gensym? (car name))) - (format "~A" name)))) + (and (module-kind m) (format "~A" (module-name m)))) (let* ((guile (resolve-module '(guile))) (roots (remove (lambda (m) (eq? m guile)) (root-modules))) (children (append-map all-child-modules roots))) |